Codebase list libdevel-cover-perl / ee2f476
[svn-upgrade] Integrating new upstream version, libdevel-cover-perl (0.65) Jonathan Yu 14 years ago
175 changed file(s) with 478 addition(s) and 428 deletion(s). Raw diff Collapse all Expand all
+14
-0
.gitignore less more
0 *.org
1 *.bak
2 *~
3 Cover.bs
4 Cover.c
5 Cover.o
6 Makefile
7 Makefile.old
8 blib/
9 cover_db/
10 t/
11 lib/Devel/Cover/Inc.pm
12 pm_to_blib
13 *.out
+23
-16
Cover.xs less more
00 /*
1 * Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
1 * Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
22 *
33 * This software is free. It is licensed under the same terms as Perl itself.
44 *
493493 SPAGAIN;
494494 }
495495
496 static void cover_statement(pTHX)
496 static void cover_statement(pTHX_ OP *op)
497497 {
498498 dMY_CXT;
499499
501501 SV **count;
502502 IV c;
503503
504 if (!collecting(Statement)) return;
505
506 ch = get_key(op);
507 count = hv_fetch(MY_CXT.statements, ch, KEY_SZ, 1);
508 c = SvTRUE(*count) ? SvIV(*count) + 1 : 1;
509
510 NDEB(D(L, "Statement: %s:%ld\n", CopFILE(cCOPx(op)), CopLINE(cCOPx(op))));
511
512 sv_setiv(*count, c);
513 NDEB(op_dump(op));
514 }
515
516 static void cover_current_statement(pTHX)
517 {
518 dMY_CXT;
519
504520 #if CAN_PROFILE
505521 cover_time(aTHX);
506522 #endif
507523
508 if (!collecting(Statement)) return;
509
510 ch = get_key(PL_op);
511 count = hv_fetch(MY_CXT.statements, ch, KEY_SZ, 1);
512 c = SvTRUE(*count) ? SvIV(*count) + 1 : 1;
513
514 NDEB(D(L, "Statement: %s:%ld\n", CopFILE(cCOP), CopLINE(cCOP)));
515
516 sv_setiv(*count, c);
517 NDEB(op_dump(PL_op));
524 cover_statement(aTHX_ PL_op);
518525 }
519526
520527 static void add_branch(pTHX_ OP *op, int br)
934941 {
935942 dMY_CXT;
936943 if (MY_CXT.covering) check_if_collecting(aTHX);
937 if (collecting_here(aTHX)) cover_statement(aTHX);
944 if (collecting_here(aTHX)) cover_current_statement(aTHX);
938945 return CALL_FPTR(MY_CXT.ppaddr[OP_NEXTSTATE])(aTHX);
939946 }
940947
943950 {
944951 dMY_CXT;
945952 if (MY_CXT.covering) check_if_collecting(aTHX);
946 if (collecting_here(aTHX)) cover_statement(aTHX);
953 if (collecting_here(aTHX)) cover_current_statement(aTHX);
947954 return CALL_FPTR(MY_CXT.ppaddr[OP_SETSTATE])(aTHX);
948955 }
949956 #endif
952959 {
953960 dMY_CXT;
954961 if (MY_CXT.covering) check_if_collecting(aTHX);
955 if (collecting_here(aTHX)) cover_statement(aTHX);
962 if (collecting_here(aTHX)) cover_current_statement(aTHX);
956963 return CALL_FPTR(MY_CXT.ppaddr[OP_DBSTATE])(aTHX);
957964 }
958965
11011108 #endif
11021109 case OP_DBSTATE:
11031110 {
1104 cover_statement(aTHX);
1111 cover_current_statement(aTHX);
11051112 break;
11061113 }
11071114
+57
-56
MANIFEST less more
0 .gitignore
01 all_versions
12 BUGS
23 buildperl
4445 README
4546 scanuncov
4647 session.vim
48 tests/.uncoverable
49 tests/alias
50 tests/alias1
51 tests/Alias1.pm
52 tests/branch_return_sub
53 tests/change.t
54 tests/cond_and
55 tests/cond_branch
56 tests/cond_or
57 tests/cond_or.pl
58 tests/cond_xor
59 tests/default_param
60 tests/deparse
61 tests/destroy
62 tests/dynamic_subs
63 tests/E2.pm
64 tests/E3.pm
65 tests/E4.pm
66 tests/eval1
67 tests/eval2
68 tests/eval3
69 tests/eval_sub.t
70 tests/eval_use.t
71 tests/exec
72 tests/fork
73 tests/if
74 tests/inc_sub
75 tests/IncSub.pm
76 tests/md5.t
77 tests/module1
78 tests/Module1.pm
79 tests/module2
80 tests/Module2.pm
81 tests/module_ignore
82 tests/module_import
83 tests/Module_import.pm
84 tests/module_relative
85 tests/overload_bool
86 tests/overloaded
87 tests/pod
88 tests/pod_nocp
89 tests/PodMod.pm
90 tests/random/dir/file
91 tests/require
92 tests/skip
93 tests/sort
94 tests/special_blocks
95 tests/statement
96 tests/subs_only
97 tests/t0
98 tests/t1
99 tests/t2
100 tests/trivial
101 tests/uncoverable
102 TODO
103 typemap
47104 test_output/cover/alias.5.006001
48105 test_output/cover/alias1.5.006001
49106 test_output/cover/alias1.5.008
137194 test_output/cover/t2.5.008001
138195 test_output/cover/trivial.5.006001
139196 test_output/cover/uncoverable.5.006001
140 tests/.uncoverable
141 tests/alias
142 tests/alias1
143 tests/Alias1.pm
144 tests/branch_return_sub
145 tests/change.t
146 tests/cond_and
147 tests/cond_branch
148 tests/cond_or
149 tests/cond_or.pl
150 tests/cond_xor
151 tests/default_param
152 tests/deparse
153 tests/destroy
154 tests/dynamic_subs
155 tests/E2.pm
156 tests/E3.pm
157 tests/E4.pm
158 tests/eval1
159 tests/eval2
160 tests/eval3
161 tests/eval_sub.t
162 tests/eval_use.t
163 tests/exec
164 tests/fork
165 tests/if
166 tests/inc_sub
167 tests/IncSub.pm
168 tests/md5.t
169 tests/module1
170 tests/Module1.pm
171 tests/module2
172 tests/Module2.pm
173 tests/module_ignore
174 tests/module_import
175 tests/Module_import.pm
176 tests/module_relative
177 tests/overload_bool
178 tests/overloaded
179 tests/pod
180 tests/pod_nocp
181 tests/PodMod.pm
182 tests/random/dir/file
183 tests/require
184 tests/skip
185 tests/sort
186 tests/special_blocks
187 tests/statement
188 tests/subs_only
189 tests/t0
190 tests/t1
191 tests/t2
192 tests/trivial
193 tests/uncoverable
194 TODO
195 typemap
+20
-12
META.yml less more
00 --- #YAML:1.0
1 name: Devel-Cover
2 version: 0.64
3 abstract: Code coverage metrics for Perl
4 license: ~
5 author:
1 name: Devel-Cover
2 version: 0.65
3 abstract: Code coverage metrics for Perl
4 author:
65 - Paul Johnson (pjcj@cpan.org)
7 generated_by: ExtUtils::MakeMaker version 6.42
8 distribution_type: module
9 requires:
10 Digest::MD5: 0
11 Storable: 0
6 license: unknown
7 distribution_type: module
8 configure_requires:
9 ExtUtils::MakeMaker: 0
10 build_requires:
11 ExtUtils::MakeMaker: 0
12 requires:
13 Digest::MD5: 0
14 Storable: 0
15 no_index:
16 directory:
17 - t
18 - inc
19 generated_by: ExtUtils::MakeMaker version 6.55_02
1220 meta-spec:
13 url: http://module-build.sourceforge.net/META-spec-v1.3.html
14 version: 1.3
21 url: http://module-build.sourceforge.net/META-spec-v1.4.html
22 version: 1.4
+6
-6
Makefile.PL less more
00 #!/usr/bin/perl
11
2 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
1818
1919 $| = 1;
2020
21 my $Version = "0.64";
22 my $Date = "10th April 2008";
21 my $Version = "0.65";
22 my $Date = "8th August 2009";
2323 my $Author = 'pjcj@cpan.org';
2424
2525 my @perlbug = ("perlbug", "-a", $Author,
3838 open I, ">lib/Devel/Cover/Inc.pm"
3939 or die "Cannot open lib/Devel/Cover/Inc.pm: $!";
4040 print I <<"EOI";
41 # Copyright 2001-2008, Paul Johnson (pjcj\@cpan.org)
41 # Copyright 2001-2009, Paul Johnson (pjcj\@cpan.org)
4242
4343 # This software is free. It is licensed under the same terms as Perl itself.
4444
107107 print T <<EOT;
108108 #!$^X
109109
110 # Copyright 2002-2008, Paul Johnson (pjcj\@cpan.org)
110 # Copyright 2002-2009, Paul Johnson (pjcj\@cpan.org)
111111
112112 # This software is free. It is licensed under the same terms as Perl itself.
113113
312312 print "not found\n\n$e\n";
313313 }
314314
315 my $latest_tested = "5.010000";
315 my $latest_tested = "5.010001";
316316 print <<EOM if $] > $latest_tested;
317317
318318 Devel::Cover $Version has not been tested with perl $].
+3
-0
TODO less more
1212 - BEGIN and CHECK blocks and code in modules. Requires callbacks from perl?
1313 - Create a base class for Devel::Cover::Branch and Devel::Cover::Condition.
1414 - Handle C< $y || "${p}qqq" >.
15 - 22:09 <@nothingmuch> return, redo, next, last, goto should probably all
16 be treated as short circuiting
1517 - Add aliased subroutines to subroutine coverage.
1618 - Accommodate reloading modules at runtime (Mark Glines).
1719 - Reports:
3537 - CPAN@1432 hangs with bleadperl@29642.
3638 - cover -delete uses too much memory when cover_db doesn't exist. (clkao)
3739 - Games::Bingo broken.
40 - Class::Unload only giving 50% coverage on return unless ... (losing data?)
3841 - Testing:
3942 - Be able to run Devel::Cover on itself.
4043 - More comprehensive.
+3
-3
all_versions less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
3030 $Options->{version} =
3131 [ map { ($_, "$_-thr") }
3232 qw( 5.6.1 5.6.2
33 5.8.0 5.8.1 5.8.2 5.8.3 5.8.4 5.8.5 5.8.6 5.8.7 5.8.8
34 5.10.0 5.11.0 ) ]
33 5.8.0 5.8.1 5.8.2 5.8.3 5.8.4 5.8.5 5.8.6 5.8.7 5.8.8 5.8.9
34 5.10.0 5.10.1 5.11.0 ) ]
3535 unless @{$Options->{version}};
3636 $Options->{version} =
3737 [ grep eval { !system "perl$_ -v" }, @{$Options->{version}} ];
+1
-1
buildperl less more
00 #!/usr/bin/perl -w
11
2 # Copyright 2001-2004, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+6
-6
cover less more
00 #!/usr/bin/perl
11
2 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.64";
15
16 use Devel::Cover::DB 0.64;
14 our $VERSION = "0.65";
15
16 use Devel::Cover::DB 0.65;
1717
1818 use Config;
1919 use Cwd "abs_path";
443443
444444 =head1 VERSION
445445
446 Version 0.64 - 10th April 2008
446 Version 0.65 - 8th August 2009
447447
448448 =head1 LICENCE
449449
450 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
450 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
451451
452452 This software is free. It is licensed under the same terms as Perl itself.
453453
+8
-8
cpancover less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.64";
15
16 use Devel::Cover::DB 0.64;
14 our $VERSION = "0.65";
15
16 use Devel::Cover::DB 0.65;
1717
1818 use Cwd ();
1919 use Getopt::Long;
340340 use strict;
341341 use warnings;
342342
343 our $VERSION = "0.64";
343 our $VERSION = "0.65";
344344
345345 use base "Template::Provider";
346346
377377 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
378378 <html xmlns="http://www.w3.org/1999/xhtml">
379379 <!--
380 This file was generated by Devel::Cover Version 0.64
380 This file was generated by Devel::Cover Version 0.65
381381 Devel::Cover is copyright 2001-2006, Paul Johnson (pjcj\@cpan.org)
382382 Devel::Cover is free. It is licensed under the same terms as Perl itself.
383383 The latest version of Devel::Cover should be available from my homepage:
478478
479479 =head1 VERSION
480480
481 Version 0.64 - 10th April 2008
481 Version 0.65 - 8th August 2009
482482
483483 =head1 LICENCE
484484
485 Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
485 Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
486486
487487 This software is free. It is licensed under the same terms as Perl itself.
488488
+3
-3
create_gold less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.64";
14 our $VERSION = "0.65";
1515
1616 use blib;
1717
1818 use Config;
1919 exit if $Config{useithreads};
2020
21 use Devel::Cover::Test 0.64;
21 use Devel::Cover::Test 0.65;
2222
2323 my @tests = @ARGV;
2424
+5
-5
gcov2perl less more
00 #!/usr/bin/perl
11
2 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.64";
14 our $VERSION = "0.65";
1515
16 use Devel::Cover::DB 0.64;
16 use Devel::Cover::DB 0.65;
1717
1818 use File::Path;
1919 use Getopt::Long;
167167
168168 =head1 VERSION
169169
170 Version 0.64 - 10th April 2008
170 Version 0.65 - 8th August 2009
171171
172172 =head1 LICENCE
173173
174 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
174 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
175175
176176 This software is free. It is licensed under the same terms as Perl itself.
177177
+4
-4
lib/Devel/Cover/Annotation/Random.pm less more
0 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use Getopt::Long;
1515
102102
103103 =head1 VERSION
104104
105 Version 0.64 - 10th April 2008
105 Version 0.65 - 8th August 2009
106106
107107 =head1 LICENCE
108108
109 Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
109 Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
110110
111111 This software is free. It is licensed under the same terms as Perl itself.
112112
+4
-4
lib/Devel/Cover/Annotation/Svk.pm less more
0 # Copyright 2005-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2005-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use Getopt::Long;
1515 use Digest::MD5;
174174
175175 =head1 VERSION
176176
177 Version 0.64 - 10th April 2008
177 Version 0.65 - 8th August 2009
178178
179179 =head1 LICENCE
180180
181 Copyright 2005-2008, Paul Johnson (pjcj@cpan.org)
181 Copyright 2005-2009, Paul Johnson (pjcj@cpan.org)
182182
183183 This software is free. It is licensed under the same terms as Perl itself.
184184
+4
-4
lib/Devel/Cover/Branch.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Criterion";
1515
8787
8888 =head1 VERSION
8989
90 Version 0.64 - 10th April 2008
90 Version 0.65 - 8th August 2009
9191
9292 =head1 LICENCE
9393
94 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
94 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
9595
9696 This software is free. It is licensed under the same terms as Perl itself.
9797
+4
-4
lib/Devel/Cover/Condition.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Branch";
1515
4949
5050 =head1 VERSION
5151
52 Version 0.64 - 10th April 2008
52 Version 0.65 - 8th August 2009
5353
5454 =head1 LICENCE
5555
56 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
56 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
5757
5858 This software is free. It is licensed under the same terms as Perl itself.
5959
+4
-4
lib/Devel/Cover/Condition_and_2.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Condition";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.64 - 10th April 2008
48 Version 0.65 - 8th August 2009
4949
5050 =head1 LICENCE
5151
52 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
52 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
5353
5454 This software is free. It is licensed under the same terms as Perl itself.
5555
+4
-4
lib/Devel/Cover/Condition_and_3.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Condition";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.64 - 10th April 2008
48 Version 0.65 - 8th August 2009
4949
5050 =head1 LICENCE
5151
52 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
52 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
5353
5454 This software is free. It is licensed under the same terms as Perl itself.
5555
+4
-4
lib/Devel/Cover/Condition_or_2.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Condition";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.64 - 10th April 2008
48 Version 0.65 - 8th August 2009
4949
5050 =head1 LICENCE
5151
52 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
52 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
5353
5454 This software is free. It is licensed under the same terms as Perl itself.
5555
+4
-4
lib/Devel/Cover/Condition_or_3.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Condition";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.64 - 10th April 2008
48 Version 0.65 - 8th August 2009
4949
5050 =head1 LICENCE
5151
52 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
52 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
5353
5454 This software is free. It is licensed under the same terms as Perl itself.
5555
+4
-4
lib/Devel/Cover/Condition_xor_4.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Condition";
1515
4444
4545 =head1 VERSION
4646
47 Version 0.64 - 10th April 2008
47 Version 0.65 - 8th August 2009
4848
4949 =head1 LICENCE
5050
51 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
51 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
5252
5353 This software is free. It is licensed under the same terms as Perl itself.
5454
+15
-15
lib/Devel/Cover/Criterion.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
14 use Devel::Cover::Statement 0.64;
15 use Devel::Cover::Branch 0.64;
16 use Devel::Cover::Condition 0.64;
17 use Devel::Cover::Condition_or_2 0.64;
18 use Devel::Cover::Condition_or_3 0.64;
19 use Devel::Cover::Condition_and_2 0.64;
20 use Devel::Cover::Condition_and_3 0.64;
21 use Devel::Cover::Condition_xor_4 0.64;
22 use Devel::Cover::Subroutine 0.64;
23 use Devel::Cover::Time 0.64;
24 use Devel::Cover::Pod 0.64;
14 use Devel::Cover::Statement 0.65;
15 use Devel::Cover::Branch 0.65;
16 use Devel::Cover::Condition 0.65;
17 use Devel::Cover::Condition_or_2 0.65;
18 use Devel::Cover::Condition_or_3 0.65;
19 use Devel::Cover::Condition_and_2 0.65;
20 use Devel::Cover::Condition_and_3 0.65;
21 use Devel::Cover::Condition_xor_4 0.65;
22 use Devel::Cover::Subroutine 0.65;
23 use Devel::Cover::Time 0.65;
24 use Devel::Cover::Pod 0.65;
2525
2626 sub coverage { $_[0][0] }
2727 sub information { $_[0][1] }
9696
9797 =head1 VERSION
9898
99 Version 0.64 - 10th April 2008
99 Version 0.65 - 8th August 2009
100100
101101 =head1 LICENCE
102102
103 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
103 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
104104
105105 This software is free. It is licensed under the same terms as Perl itself.
106106
+5
-5
lib/Devel/Cover/DB/File.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
14 use Devel::Cover::Criterion 0.64;
14 use Devel::Cover::Criterion 0.65;
1515
1616 sub calculate_summary
1717 {
7878
7979 =head1 VERSION
8080
81 Version 0.64 - 10th April 2008
81 Version 0.65 - 8th August 2009
8282
8383 =head1 LICENCE
8484
85 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
85 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
8686
8787 This software is free. It is licensed under the same terms as Perl itself.
8888
+4
-4
lib/Devel/Cover/DB/Structure.pm less more
0 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
1515
1616 use Devel::Cover::DB;
1717
18 our $VERSION = "0.64";
18 our $VERSION = "0.65";
1919 our $AUTOLOAD;
2020
2121 sub new
322322
323323 =head1 VERSION
324324
325 Version 0.64 - 10th April 2008
325 Version 0.65 - 8th August 2009
326326
327327 =head1 LICENCE
328328
329 Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
329 Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
330330
331331 This software is free. It is licensed under the same terms as Perl itself.
332332
+23
-14
lib/Devel/Cover/DB.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
13
14 use Devel::Cover::Criterion 0.64;
15 use Devel::Cover::DB::File 0.64;
16 use Devel::Cover::DB::Structure 0.64;
12 our $VERSION = "0.65";
13
14 use Devel::Cover::Criterion 0.65;
15 use Devel::Cover::DB::File 0.65;
16 use Devel::Cover::DB::Structure 0.65;
1717
1818 use Carp;
1919 use File::Path;
498498 {
499499 my $self = shift;
500500 my ($cc, $sc, $fc, $uc) = @_;
501
501502 # use Data::Dumper;
502503 # print STDERR "add_subroutine():\n", Dumper $cc, $sc, $fc, $uc;
504
503505 # $cc = { line_number => [ [ count, sub_name, uncoverable ], [ ... ] ], .. }
504506 # $sc = [ [ line_number, sub_name ], [ ... ] ]
505507 # $fc = [ count, ... ]
506 # $cc = { line_number => [ [ ??? ], [ ... ] ], ... }
508 # $uc = { line_number => [ [ ??? ], [ ... ] ], ... }
507509 # length @$sc == length @$fc
510
508511 my %line;
509512 for my $i (0 .. $#$fc)
510513 {
517520 warn "Devel::Cover: ignoring extra subroutine\n";
518521 return;
519522 }
523
520524 my $n = $line{$l}++;
521525 if (my $a = $cc->{$l}[$n])
522526 {
670674
671675 return $self->{cover} if $self->{cover_valid};
672676
673 my %digests;
674 my %files;
677 my %digests; # mapping of digests to canonical filenames
678 my %files; # processed files
675679 my $cover = $self->{cover} = {};
680
676681 my $st = Devel::Cover::DB::Structure->new(base => $self->{base})->read_all;
682
677683 my $cr = join "|", @{$self->{all_criteria}};
678 my $uc = qr/(.*)# uncoverable ($cr)(.*)/;
684 my $uc = qr/(.*)# uncoverable ($cr)(.*)/; # regex for uncoverable comments
679685 my %uncoverable;
680686 my %types =
681687 (
690696 # TODO - change sort order
691697 @runs = sort { $b <=> $a } keys %{$self->{runs}};
692698 }
699
693700 for my $run (@runs)
694701 {
695702 my $r = $self->{runs}{$run};
709716 print STDERR "Devel::Cover: merging data for $file ",
710717 "into $digests{$digest}\n"
711718 if !$files{$file}++ && $digests{$digest};
719
720 # Set up data structure to hold coverage being filled in
712721 my $cf = $cover->{$digests{$digest} ||= $file} ||= {};
713722
714
723 # Look for uncoverable comments
715724 open my $fh, "<", $file or do
716725 {
717726 warn "Devel::Cover: Can't open file $file: $!\n";
769778 " unmatched uncoverable comments not found at end of $file\n"
770779 if @waiting;
771780
772 # $self->uncoverable;
781 # TODO - read in and merge $self->uncoverable;
773782 # use Data::Dumper; print Dumper \%uncoverable;
774783
775784 # print STDERR "st ", Dumper($st),
986995
987996 =head1 VERSION
988997
989 Version 0.64 - 10th April 2008
998 Version 0.65 - 8th August 2009
990999
9911000 =head1 LICENCE
9921001
993 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
1002 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
9941003
9951004 This software is free. It is licensed under the same terms as Perl itself.
9961005
+4
-4
lib/Devel/Cover/Op.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.64";
14 our $VERSION = "0.65";
1515
1616 use Devel::Cover qw( -ignore blib -ignore \\wB\\w );
1717 use B::Concise qw( set_style add_callback );
111111
112112 =head1 VERSION
113113
114 Version 0.64 - 10th April 2008
114 Version 0.65 - 8th August 2009
115115
116116 =head1 LICENCE
117117
118 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
118 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
119119
120120 This software is free. It is licensed under the same terms as Perl itself.
121121
+4
-4
lib/Devel/Cover/Pod.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Criterion";
1515
6565
6666 =head1 VERSION
6767
68 Version 0.64 - 10th April 2008
68 Version 0.65 - 8th August 2009
6969
7070 =head1 LICENCE
7171
72 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
72 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
7373
7474 This software is free. It is licensed under the same terms as Perl itself.
7575
+5
-5
lib/Devel/Cover/Report/Compilation.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
1717 use strict;
1818 use warnings;
1919
20 our $VERSION = "0.64";
20 our $VERSION = "0.65";
2121
22 use Devel::Cover::DB 0.64;
22 use Devel::Cover::DB 0.65;
2323
2424 # TODO - uncoverable code?
2525
168168
169169 =head1 VERSION
170170
171 Version 0.64 - 10th April 2008
171 Version 0.65 - 8th August 2009
172172
173173 =head1 LICENCE
174174
175 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
175 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
176176
177177 This software is free. It is licensed under the same terms as Perl itself.
178178
+4
-4
lib/Devel/Cover/Report/Html.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Report::Html_minimal";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.64 - 10th April 2008
48 Version 0.65 - 8th August 2009
4949
5050 =head1 LICENCE
5151
52 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
52 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
5353
5454 This software is free. It is licensed under the same terms as Perl itself.
5555
+9
-9
lib/Devel/Cover/Report/Html_basic.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
13
14 use Devel::Cover::DB 0.64;
15 use Devel::Cover::Web 0.64 "write_file";
12 our $VERSION = "0.65";
13
14 use Devel::Cover::DB 0.65;
15 use Devel::Cover::Web 0.65 "write_file";
1616
1717 use Getopt::Long;
1818 use Template 2.00;
447447 use strict;
448448 use warnings;
449449
450 our $VERSION = "0.64";
450 our $VERSION = "0.65";
451451
452452 use base "Template::Provider";
453453
467467 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
468468 <html xmlns="http://www.w3.org/1999/xhtml">
469469 <!--
470 This file was generated by Devel::Cover Version 0.64
470 This file was generated by Devel::Cover Version 0.65
471471 Devel::Cover is copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
472472 Devel::Cover is free. It is licensed under the same terms as Perl itself.
473473 The latest version of Devel::Cover should be available from my homepage:
768768
769769 =head1 VERSION
770770
771 Version 0.64 - 10th April 2008
771 Version 0.65 - 8th August 2009
772772
773773 =head1 LICENCE
774774
775 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
775 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
776776
777777 This software is free. It is licensed under the same terms as Perl itself.
778778
+8
-8
lib/Devel/Cover/Report/Html_minimal.pm less more
33 use warnings;
44 use CGI;
55 use Getopt::Long;
6 use Devel::Cover::DB 0.64;
7 use Devel::Cover::Truth_Table 0.64;
8
9 our $VERSION = "0.64";
6 use Devel::Cover::DB 0.65;
7 use Devel::Cover::Truth_Table 0.65;
8
9 our $VERSION = "0.65";
1010
1111 #-------------------------------------------------------------------------------
1212 # Subroutine : get_coverage_for_line
260260 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
261261 <html xmlns="http://www.w3.org/1999/xhtml">
262262 <!--
263 This file was generated by Devel::Cover Version 0.64
263 This file was generated by Devel::Cover Version 0.65
264264 Devel::Cover is copyright 2001-2006, Paul Johnson (pjcj\@cpan.org)
265265 Devel::Cover is free. It is licensed under the same terms as Perl itself.
266266 The latest version of Devel::Cover should be available from my homepage:
287287 my $fh = shift;
288288 my $title = shift;
289289 my $file = shift;
290 my $percent = sprintf("%.1f", shift @_);
290 my $percent = sprintf("%.1f", shift @_ || 0);
291291 my $error = shift;
292292 my $db = shift;
293293 my $class = pclass($percent, $error);
775775
776776 =head1 VERSION
777777
778 Version 0.64 - 10th April 2008
778 Version 0.65 - 8th August 2009
779779
780780 =head1 LICENCE
781781
782 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
782 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
783783
784784 This software is free. It is licensed under the same terms as Perl itself.
785785
+8
-8
lib/Devel/Cover/Report/Html_subtle.pm less more
11 use strict;
22 use warnings;
33
4 our $VERSION = "0.64";
5
6 use Devel::Cover::DB 0.64;
7 use Devel::Cover::Truth_Table 0.64;
4 our $VERSION = "0.65";
5
6 use Devel::Cover::DB 0.65;
7 use Devel::Cover::Truth_Table 0.65;
88
99 use Template 2.00;
1010 use CGI;
385385 use strict;
386386 use warnings;
387387
388 our $VERSION = "0.64";
388 our $VERSION = "0.65";
389389
390390 use base "Template::Provider";
391391
403403 $Templates{html} = <<'EOT';
404404 <?xml version="1.0" encoding="utf-8"?>
405405 <!--
406 This file was generated by Devel::Cover Version 0.64
406 This file was generated by Devel::Cover Version 0.65
407407 Devel::Cover is copyright 2001-2006, Paul Johnson (pjcj\@cpan.org)
408408 Devel::Cover is free. It is licensed under the same terms as Perl itself.
409409 The latest version of Devel::Cover should be available from my homepage:
727727
728728 =head1 VERSION
729729
730 Version 0.64 - 10th April 2008
730 Version 0.65 - 8th August 2009
731731
732732 =head1 LICENCE
733733
734 Copyright 2001-2002, Paul Johnson (pjcj@cpan.org)
734 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
735735
736736 This software is free. It is licensed under the same terms as Perl itself.
737737
+5
-5
lib/Devel/Cover/Report/Sort.pm less more
0 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
14 use Devel::Cover::DB 0.64;
14 use Devel::Cover::DB 0.65;
1515
1616 sub print_sort
1717 {
9494
9595 =head1 VERSION
9696
97 Version 0.64 - 10th April 2008
97 Version 0.65 - 8th August 2009
9898
9999 =head1 LICENCE
100100
101 Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
101 Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
102102
103103 This software is free. It is licensed under the same terms as Perl itself.
104104
+6
-6
lib/Devel/Cover/Report/Text.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
13
14 use Devel::Cover::DB 0.64;
12 our $VERSION = "0.65";
13
14 use Devel::Cover::DB 0.65;
1515
1616 sub print_runs
1717 {
312312
313313 =head1 VERSION
314314
315 Version 0.64 - 10th April 2008
315 Version 0.65 - 8th August 2009
316316
317317 =head1 LICENCE
318318
319 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
319 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
320320
321321 This software is free. It is licensed under the same terms as Perl itself.
322322
+5
-5
lib/Devel/Cover/Report/Text2.pm less more
11 use strict;
22 use warnings;
33
4 our $VERSION = "0.64";
5
6 use Devel::Cover::DB 0.64;
4 our $VERSION = "0.65";
5
6 use Devel::Cover::DB 0.65;
77 use Devel::Cover::Truth_Table;
88
99 my %format = (
190190
191191 =head1 VERSION
192192
193 Version 0.64 - 10th April 2008
193 Version 0.65 - 8th August 2009
194194
195195 =head1 LICENCE
196196
197 Copyright 2001-2002, Paul Johnson (pjcj@cpan.org)
197 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
198198
199199 This software is free. It is licensed under the same terms as Perl itself.
200200
+4
-4
lib/Devel/Cover/Statement.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Criterion";
1515
5050
5151 =head1 VERSION
5252
53 Version 0.64 - 10th April 2008
53 Version 0.65 - 8th August 2009
5454
5555 =head1 LICENCE
5656
57 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
57 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
5858
5959 This software is free. It is licensed under the same terms as Perl itself.
6060
+4
-4
lib/Devel/Cover/Subroutine.pm less more
0 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Criterion";
1515
4949
5050 =head1 VERSION
5151
52 Version 0.64 - 10th April 2008
52 Version 0.65 - 8th August 2009
5353
5454 =head1 LICENCE
5555
56 Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
56 Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
5757
5858 This software is free. It is licensed under the same terms as Perl itself.
5959
+5
-3
lib/Devel/Cover/Test.pm less more
0 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use Carp;
1515
1616 use File::Spec;
1717 use Test;
1818
19 use Devel::Cover::Inc 0.64;
19 use Devel::Cover::Inc 0.65;
2020
2121 my $Test;
2222
218218 skip($self->{skip}, 1);
219219 return;
220220 }
221
222 local $ENV{PERL5OPT};
221223
222224 $self->{run_test}
223225 ? $self->{run_test}->($self)
+4
-4
lib/Devel/Cover/Time.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use base "Devel::Cover::Criterion";
1515
7070
7171 =head1 VERSION
7272
73 Version 0.64 - 10th April 2008
73 Version 0.65 - 8th August 2009
7474
7575 =head1 LICENCE
7676
77 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
77 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
7878
7979 This software is free. It is licensed under the same terms as Perl itself.
8080
+2
-2
lib/Devel/Cover/Truth_Table.pm less more
179179 package Devel::Cover::Truth_Table;
180180 use warnings;
181181 use strict;
182 our $VERSION = "0.64";
182 our $VERSION = "0.65";
183183
184184 #-------------------------------------------------------------------------------
185185 # Subroutine : new()
566566
567567 =head1 VERSION
568568
569 Version 0.64 - 10th April 2008
569 Version 0.65 - 8th August 2009
570570
571571 =head1 LICENSE
572572
+2
-2
lib/Devel/Cover/Tutorial.pod less more
162162
163163 =head1 VERSION
164164
165 Version 0.64 - 10th April 2008
165 Version 0.65 - 8th August 2009
166166
167167 =head1 LICENCE
168168
169 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
169 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
170170
171171 This software is free. It is licensed under the same terms as Perl itself.
172172
+4
-4
lib/Devel/Cover/Web.pm less more
0 # Copyright 2007-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2007-2009, Paul Johnson (pjcj@cpan.org)
11 # except where otherwise noted.
22
33 # This software is free. It is licensed under the same terms as Perl itself,
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.64";
14 our $VERSION = "0.65";
1515
1616 use Exporter;
1717
933933
934934 =head1 VERSION
935935
936 Version 0.64 - 10th April 2008
936 Version 0.65 - 8th August 2009
937937
938938 =head1 LICENCE
939939
940 Copyright 2007-2008, Paul Johnson (pjcj@cpan.org) except where otherwise noted.
940 Copyright 2007-2009, Paul Johnson (pjcj@cpan.org) except where otherwise noted.
941941
942942 This software is free. It is licensed under the same terms as Perl itself,
943943 except where otherwise noted.
+12
-6
lib/Devel/Cover.pm less more
0 # Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.64";
12 our $VERSION = "0.65";
1313
1414 use DynaLoader ();
1515 our @ISA = "DynaLoader";
1616
17 use Devel::Cover::DB 0.64;
18 use Devel::Cover::Inc 0.64;
17 use Devel::Cover::DB 0.65;
18 use Devel::Cover::Inc 0.65;
1919
2020 use B qw( class ppname main_cv main_start main_root walksymtable OPf_KIDS );
2121 use B::Debug;
952952 my $newop = $false->first;
953953 my $newcond = $newop->first;
954954 my $newtrue = $newcond->sibling;
955 if ($newcond->name eq "lineseq")
956 {
957 # lineseq to ensure correct line numbers in elsif()
958 # Bug #37302 fixed by change #33710.
959 $newcond = $newcond->first->sibling;
960 }
955961 # last in chain is OP_AND => no else
956962 $false = $newtrue->sibling;
957963 { local $Collect; $newcond = $self->deparse($newcond, 1) }
14331439
14341440 =head1 VERSION
14351441
1436 Version 0.64 - 10th April 2008
1442 Version 0.65 - 8th August 2009
14371443
14381444 =head1 LICENCE
14391445
1440 Copyright 2001-2008, Paul Johnson (pjcj@cpan.org)
1446 Copyright 2001-2009, Paul Johnson (pjcj@cpan.org)
14411447
14421448 This software is free. It is licensed under the same terms as Perl itself.
14431449
+1
-1
test_output/cover/alias.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+2
-2
test_output/cover/alias1.5.006001 less more
1818 tests/Alias1.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
6666 line err stmt bran cond sub code
6767 1 #!/usr/bin/perl
6868 2
69 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
69 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
7070 4
7171 5 # This software is free. It is licensed under the same terms as Perl itself.
7272 6
+2
-2
test_output/cover/alias1.5.008 less more
1818 tests/Alias1.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
7575 line err stmt bran cond sub code
7676 1 #!/usr/bin/perl
7777 2
78 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
78 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
7979 4
8080 5 # This software is free. It is licensed under the same terms as Perl itself.
8181 6
+1
-1
test_output/cover/branch_return_sub.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/branch_return_sub.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/change.5.006001 less more
2626 line err stmt bran cond sub code
2727 1 #!/usr/bin/perl
2828 2
29 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
29 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
3030 4
3131 5 # This software is free. It is licensed under the same terms as Perl itself.
3232 6
+1
-1
test_output/cover/cond_and.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_and.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_and.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_branch.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_branch.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_branch.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_or.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_or.5.006002 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_or.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_or.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_or.5.009005 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+2
-2
test_output/cover/cond_or.5.010000 less more
2020 line err stmt bran cond sub code
2121 1 #!/usr/bin/perl
2222 2
23 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
23 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2424 4
2525 5 # This software is free. It is licensed under the same terms as Perl itself.
2626 6
192192 line err stmt bran cond sub code
193193 1 #!/usr/bin/perl
194194 2
195 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
195 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
196196 4
197197 5 # This software is free. It is licensed under the same terms as Perl itself.
198198 6
+1
-1
test_output/cover/cond_xor.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_xor.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/cond_xor.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/default_param.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/default_param.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/default_param.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/deparse.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl -l
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/deparse.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl -l
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/destroy.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/dynamic_subs.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/dynamic_subs.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/dynamic_subs.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/dynamic_subs.5.008002 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/eval1.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/eval1.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/eval2.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/eval2.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/eval3.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/eval3.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/eval_sub.t.5.006001 less more
3737 line err stmt bran cond sub code
3838 1 #!/usr/bin/perl
3939 2
40 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
40 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
4141 4
4242 5 # This software is free. It is licensed under the same terms as Perl itself.
4343 6
+1
-1
test_output/cover/eval_sub.t.5.008 less more
3737 line err stmt bran cond sub code
3838 1 #!/usr/bin/perl
3939 2
40 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
40 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
4141 4
4242 5 # This software is free. It is licensed under the same terms as Perl itself.
4343 6
+1
-1
test_output/cover/eval_use.t.5.006001 less more
3737 line err stmt bran cond sub code
3838 1 #!/usr/bin/perl
3939 2
40 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
40 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
4141 4
4242 5 # This software is free. It is licensed under the same terms as Perl itself.
4343 6
+1
-1
test_output/cover/eval_use.t.5.008 less more
3737 line err stmt bran cond sub code
3838 1 #!/usr/bin/perl
3939 2
40 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
40 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
4141 4
4242 5 # This software is free. It is licensed under the same terms as Perl itself.
4343 6
+1
-1
test_output/cover/exec.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2007-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2007-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/fork.5.006001 less more
2525 line err stmt bran cond sub code
2626 1 #!/usr/bin/perl
2727 2
28 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
28 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2929 4
3030 5 # This software is free. It is licensed under the same terms as Perl itself.
3131 6
+1
-1
test_output/cover/if.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/if.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/md5.5.006001 less more
2626 line err stmt bran cond sub code
2727 1 #!/usr/bin/perl
2828 2
29 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
29 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
3030 4
3131 5 # This software is free. It is licensed under the same terms as Perl itself.
3232 6
+2
-2
test_output/cover/module1.5.006001 less more
1818 tests/Module1.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
8181 line err stmt bran cond sub code
8282 1 #!/usr/bin/perl
8383 2
84 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
84 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
8585 4
8686 5 # This software is free. It is licensed under the same terms as Perl itself.
8787 6
+2
-2
test_output/cover/module1.5.008 less more
1818 tests/Module1.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
8181 line err stmt bran cond sub code
8282 1 #!/usr/bin/perl
8383 2
84 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
84 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
8585 4
8686 5 # This software is free. It is licensed under the same terms as Perl itself.
8787 6
+2
-2
test_output/cover/module1.5.008001 less more
1818 tests/Module1.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
8181 line err stmt bran cond sub code
8282 1 #!/usr/bin/perl
8383 2
84 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
84 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
8585 4
8686 5 # This software is free. It is licensed under the same terms as Perl itself.
8787 6
+2
-2
test_output/cover/module2.5.006001 less more
1818 tests/Module2.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
8181 line err stmt bran cond sub code
8282 1 #!/usr/bin/perl
8383 2
84 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
84 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
8585 4
8686 5 # This software is free. It is licensed under the same terms as Perl itself.
8787 6
+2
-2
test_output/cover/module2.5.008 less more
1818 tests/Module2.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
8181 line err stmt bran cond sub code
8282 1 #!/usr/bin/perl
8383 2
84 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
84 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
8585 4
8686 5 # This software is free. It is licensed under the same terms as Perl itself.
8787 6
+2
-2
test_output/cover/module2.5.008001 less more
1818 tests/Module2.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
8181 line err stmt bran cond sub code
8282 1 #!/usr/bin/perl
8383 2
84 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
84 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
8585 4
8686 5 # This software is free. It is licensed under the same terms as Perl itself.
8787 6
+1
-1
test_output/cover/module_ignore.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2006-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2006-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/module_ignore.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2006-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2006-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/module_ignore.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2006-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2006-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/module_import.5.006001 less more
1717 tests/Module_import.pm
1818
1919 line err stmt bran cond sub code
20 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
20 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2121 2
2222 3 # This software is free. It is licensed under the same terms as Perl itself.
2323 4
+2
-2
test_output/cover/module_import.5.008 less more
1818 tests/Module_import.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
4848 line err stmt bran cond sub code
4949 1 #!/usr/bin/perl
5050 2
51 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
51 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
5252 4
5353 5 # This software is free. It is licensed under the same terms as Perl itself.
5454 6
+2
-2
test_output/cover/module_import.5.008001 less more
1818 tests/Module_import.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
4848 line err stmt bran cond sub code
4949 1 #!/usr/bin/perl
5050 2
51 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
51 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
5252 4
5353 5 # This software is free. It is licensed under the same terms as Perl itself.
5454 6
+2
-2
test_output/cover/module_relative.5.008 less more
1818 tests/Module_import.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
4848 line err stmt bran cond sub code
4949 1 #!/usr/bin/perl
5050 2
51 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
51 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
5252 4
5353 5 # This software is free. It is licensed under the same terms as Perl itself.
5454 6
+2
-2
test_output/cover/module_relative.5.008001 less more
1818 tests/Module_import.pm
1919
2020 line err stmt bran cond sub code
21 1 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
21 1 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2222 2
2323 3 # This software is free. It is licensed under the same terms as Perl itself.
2424 4
4848 line err stmt bran cond sub code
4949 1 #!/usr/bin/perl
5050 2
51 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
51 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
5252 4
5353 5 # This software is free. It is licensed under the same terms as Perl itself.
5454 6
+1
-1
test_output/cover/overload_bool.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2006-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2006-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/overload_bool.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2006-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2006-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/overloaded.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2003-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2003-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/overloaded.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2003-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2003-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/require.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/require.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/skip.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/special_blocks.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/special_blocks.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/special_blocks.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/special_blocks.5.009005 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/statement.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/subs_only.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2006-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2006-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/t0.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/t0.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/t0.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/t1.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/t1.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/t2.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/t2.5.008 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/t2.5.008001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/trivial.5.006001 less more
1919 line err stmt bran cond sub code
2020 1 #!/usr/bin/perl
2121 2
22 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
22 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2323 4
2424 5 # This software is free. It is licensed under the same terms as Perl itself.
2525 6
+1
-1
test_output/cover/uncoverable.5.006001 less more
2020 line err stmt bran cond sub code
2121 1 #!/usr/bin/perl
2222 2
23 3 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
23 3 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
2424 4
2525 5 # This software is free. It is licensed under the same terms as Perl itself.
2626 6
+1
-1
tests/Alias1.pm less more
0 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
+1
-1
tests/E2.pm less more
0 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
+1
-1
tests/E3.pm less more
0 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
+1
-1
tests/E4.pm less more
0 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
+1
-1
tests/Module1.pm less more
0 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
+1
-1
tests/Module2.pm less more
0 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
+1
-1
tests/Module_import.pm less more
0 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
+1
-1
tests/PodMod.pm less more
0 # Copyright 2005-2008, Paul Johnson (pjcj@cpan.org)
0 # Copyright 2005-2009, Paul Johnson (pjcj@cpan.org)
11
22 # This software is free. It is licensed under the same terms as Perl itself.
33
+1
-1
tests/alias less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/alias1 less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/branch_return_sub less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+3
-3
tests/change.t less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
1111
1212 use File::Copy;
1313
14 use Devel::Cover::Inc 0.64;
15 use Devel::Cover::Test 0.64;
14 use Devel::Cover::Inc 0.65;
15 use Devel::Cover::Test 0.65;
1616
1717 my $base = $Devel::Cover::Inc::Base;
1818
+1
-1
tests/cond_and less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/cond_branch less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/cond_or less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/cond_or.pl less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/cond_xor less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/default_param less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/deparse less more
00 #!/usr/bin/perl -l
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/destroy less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/dynamic_subs less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/eval1 less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/eval2 less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/eval3 less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+2
-2
tests/eval_sub.t less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
99 use strict;
1010 use warnings;
1111
12 use Devel::Cover::Test 0.64;
12 use Devel::Cover::Test 0.65;
1313
1414 my $run_test = sub
1515 {
+2
-2
tests/eval_use.t less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
99 use strict;
1010 use warnings;
1111
12 use Devel::Cover::Test 0.64;
12 use Devel::Cover::Test 0.65;
1313
1414 my $run_test = sub
1515 {
+1
-1
tests/exec less more
00 #!/usr/bin/perl
11
2 # Copyright 2007-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2007-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/fork less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/if less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+3
-3
tests/md5.t less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
1111
1212 use File::Copy;
1313
14 use Devel::Cover::Inc 0.64;
15 use Devel::Cover::Test 0.64;
14 use Devel::Cover::Inc 0.65;
15 use Devel::Cover::Test 0.65;
1616
1717 my $base = $Devel::Cover::Inc::Base;
1818
+1
-1
tests/module1 less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/module2 less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/module_ignore less more
00 #!/usr/bin/perl
11
2 # Copyright 2006-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2006-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/module_import less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/module_relative less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/overload_bool less more
00 #!/usr/bin/perl
11
2 # Copyright 2006-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2006-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/overloaded less more
00 #!/usr/bin/perl
11
2 # Copyright 2003-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2003-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/pod less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/pod_nocp less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/require less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/skip less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/special_blocks less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/statement less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/subs_only less more
00 #!/usr/bin/perl
11
2 # Copyright 2006-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2006-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/t0 less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/t1 less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/t2 less more
00 #!/usr/bin/perl
11
2 # Copyright 2002-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2002-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/trivial less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55
+1
-1
tests/uncoverable less more
00 #!/usr/bin/perl
11
2 # Copyright 2004-2008, Paul Johnson (pjcj@cpan.org)
2 # Copyright 2004-2009, Paul Johnson (pjcj@cpan.org)
33
44 # This software is free. It is licensed under the same terms as Perl itself.
55