Codebase list libdevel-cover-perl / upstream/0.73
[svn-upgrade] new version libdevel-cover-perl (0.73) Gregor Herrmann 13 years ago
47 changed file(s) with 308 addition(s) and 201 deletion(s). Raw diff Collapse all Expand all
+1
-1
MANIFEST less more
9898 tests/t2
9999 tests/trivial
100100 tests/uncoverable
101 typemap
102101 utils/all_versions
103102 utils/create_gold
104103 utils/Devel/Cover/BuildUtils.pm
107106 utils/makeh
108107 utils/scanuncov
109108 utils/session.vim
109 utils/typemap
110110 test_output/cover/alias.5.006001
111111 test_output/cover/alias1.5.006001
112112 test_output/cover/alias1.5.008
+24
-5
META.yml less more
00 --- #YAML:1.0
11 name: Devel-Cover
2 version: 0.72
2 version: 0.73
33 abstract: Code coverage metrics for Perl
44 author:
55 - Paul Johnson (pjcj@cpan.org)
6 license: unknown
6 license: perl
77 distribution_type: module
88 configure_requires:
99 ExtUtils::MakeMaker: 0
1010 build_requires:
1111 ExtUtils::MakeMaker: 0
12 Test::More: 0
13 Test::Warn: 0
1214 requires:
1315 Digest::MD5: 0
16 perl: 5.006001
1417 Storable: 0
15 Test::More: 0
16 Test::Warn: 0
18 resources:
19 bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Devel-Cover
20 homepage: http://www.pjcj.net/perl.html
21 license: http://dev.perl.org/licenses
22 MailingList: http://lists.perl.org/list/perl-qa.html
23 repository: http://github.com/pjcj/Devel--Cover
1724 no_index:
1825 directory:
1926 - t
2027 - inc
21 generated_by: ExtUtils::MakeMaker version 6.56
28 - tests
29 - utils
30 generated_by: ExtUtils::MakeMaker version 6.55_02
2231 meta-spec:
2332 url: http://module-build.sourceforge.net/META-spec-v1.4.html
2433 version: 1.4
34 dynamic_config: 1
35 recommends:
36 Parallel::Iterator: 0
37 perl: 5.008002
38 Perl::Tidy: 20060719
39 Pod::Coverage: 0.06
40 Pod::Coverage::CountParents: 0
41 PPI::HTML: 1.07
42 Template: 2
43 Test::Differences: 0
+89
-24
Makefile.PL less more
1818
1919 $| = 1;
2020
21 my $Version = "0.72";
22 my $Date = "27th September 2010";
21 my $Version = "0.73";
22 my $Date = "2nd October 2010";
2323 my $Author = 'pjcj@cpan.org';
2424
2525 my @perlbug = ("perlbug", "-a", $Author,
196196 if (my $m = $INC{"Test/More.pm"})
197197 {
198198 my $v = eval { no warnings; $Test::More::VERSION };
199 print "$v $m\n";
200 }
201 else
202 {
203 print "not found\n\n$e\n";
204 }
205
206 print "checking for Test::Warn ........ ";
207
208 $e = <<EOM;
209
210 Test::Warn is required to run some of the Devel::Cover tests. You can
211 download Test::Warn from CPAN.
212
213 EOM
214
215 eval "use Test::Warn";
216 if (my $m = $INC{"Test/Warn.pm"})
217 {
218 my $v = eval { no warnings; $Test::Warn::VERSION };
199219 print "$v $m\n";
200220 }
201221 else
375395
376396 WriteMakefile
377397 (
378 NAME => "Devel::Cover",
379 VERSION => $Version,
380 AUTHOR => 'Paul Johnson (pjcj@cpan.org)',
381 ABSTRACT => "Code coverage metrics for Perl",
382 DIR => [],
383 EXE_FILES => [ qw( cover gcov2perl cpancover ) ],
384 PREREQ_PM => {
385 Storable => 0,
386 "Digest::MD5" => 0,
387 "Test::More" => 0,
388 "Test::Warn" => 0,
389 },
390 dist => { COMPRESS => "gzip --best --force" },
391 test => { TESTS => "t/*/*.t" },
392 clean => { FILES => join " ", "t/e2e/*" },
393 depend => { distdir => "@files" },
394 realclean => $] < 5.008008 ?
395 {
396 FILES => "lib/Devel/Cover/Inc.pm",
397 POSTOP => "\$(RM_RF) cover_db t/e2e"
398 } :
399 { FILES => "lib/Devel/Cover/Inc.pm cover_db t/e2e" },
398 NAME => "Devel::Cover",
399 VERSION => $Version,
400 AUTHOR => 'Paul Johnson (pjcj@cpan.org)',
401 ABSTRACT_FROM => "lib/Devel/Cover.pm",
402 DIR => [],
403 EXE_FILES => [ qw( cover gcov2perl cpancover ) ],
404 LICENSE => "perl",
405 META_ADD =>
406 {
407 requires =>
408 {
409 perl => 5.006001,
410 Storable => 0,
411 "Digest::MD5" => 0,
412 },
413 dynamic_config => 1,
414 },
415 META_MERGE =>
416 {
417 recommends =>
418 {
419 perl => 5.008002,
420 Template => 2.00,
421 "PPI::HTML" => 1.07,
422 "Perl::Tidy" => 20060719,
423 "Pod::Coverage" => 0.06,
424 "Pod::Coverage::CountParents" => 0,
425 "Test::Differences" => 0,
426 "Parallel::Iterator" => 0,
427 },
428 build_requires =>
429 {
430 "Test::More" => 0,
431 "Test::Warn" => 0,
432 },
433 no_index =>
434 {
435 directory => [ "tests", "utils" ],
436 },
437 resources =>
438 {
439 license => "http://dev.perl.org/licenses",
440 homepage => "http://www.pjcj.net/perl.html",
441 bugtracker => "http://rt.cpan.org/NoAuth/Bugs.html?Dist=Devel-Cover",
442 repository => "http://github.com/pjcj/Devel--Cover",
443 MailingList => "http://lists.perl.org/list/perl-qa.html",
444 },
445 },
446 MIN_PERL_VERSION => "5.6.1",
447 PERL_MALLOC_OK => 1,
448 PREREQ_PM => {
449 Storable => 0,
450 "Digest::MD5" => 0,
451 "Test::More" => 0,
452 "Test::Warn" => 0,
453 },
454 TYPEMAPS => [ "utils/typemap" ],
455 clean => { FILES => "t/e2e/* cover_db* t/e2e/*cover_db" },
456 depend => { distdir => "@files" },
457 dist => { COMPRESS => "gzip --best --force" },
458 test => { TESTS => "t/*/*.t" },
459 realclean => $] < 5.008008 ?
460 {
461 FILES => "lib/Devel/Cover/Inc.pm",
462 POSTOP => "\$(RM_RF) cover_db t/e2e"
463 } :
464 { FILES => "lib/Devel/Cover/Inc.pm cover_db t/e2e" },
400465 );
401466
402467 print "\n";
+4
-4
cover less more
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.72";
15
16 use Devel::Cover::DB 0.72;
14 our $VERSION = "0.73";
15
16 use Devel::Cover::DB 0.73;
1717
1818 use Config;
1919 use File::Spec;
445445
446446 =head1 VERSION
447447
448 Version 0.72 - 27th September 2010
448 Version 0.73 - 2nd October 2010
449449
450450 =head1 LICENCE
451451
+6
-6
cpancover less more
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.72";
15
16 use Devel::Cover::DB 0.72;
14 our $VERSION = "0.73";
15
16 use Devel::Cover::DB 0.73;
1717
1818 use Cwd ();
1919 use Getopt::Long;
355355 use strict;
356356 use warnings;
357357
358 our $VERSION = "0.72";
358 our $VERSION = "0.73";
359359
360360 use base "Template::Provider";
361361
392392 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
393393 <html xmlns="http://www.w3.org/1999/xhtml">
394394 <!--
395 This file was generated by Devel::Cover Version 0.72
395 This file was generated by Devel::Cover Version 0.73
396396 Devel::Cover is copyright 2001-2010, Paul Johnson (pjcj\@cpan.org)
397397 Devel::Cover is free. It is licensed under the same terms as Perl itself.
398398 The latest version of Devel::Cover should be available from my homepage:
493493
494494 =head1 VERSION
495495
496 Version 0.72 - 27th September 2010
496 Version 0.73 - 2nd October 2010
497497
498498 =head1 LICENCE
499499
+4
-0
docs/CHANGES less more
00 Devel::Cover.pm history
1
2 Release 0.73 - 2nd October 2010
3 - Tidy up Makefile.PL and META.yml.
4 - Get coverage working with Windows again.
15
26 Release 0.72 - 27th September 2010
37 - Teach cpancover how to work in parallel.
+6
-0
docs/RELEASE less more
1717 - Then propagate the change.
1818 $ perl Makefile.PL && make
1919
20 Generate META.yml
21 $ make distdir
22 $ cp Devel-Cover-X.YZ/META.yml .
23 $ rm -r Devel-Cover-X.YZ
24
2025 Run basic tests.
26 $ perl Makefile.PL && make
2127 $ make test
2228
2329 Test against all versions.
+3
-3
gcov2perl less more
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.72";
14 our $VERSION = "0.73";
1515
16 use Devel::Cover::DB 0.72;
16 use Devel::Cover::DB 0.73;
1717
1818 use File::Path;
1919 use File::Spec;
184184
185185 =head1 VERSION
186186
187 Version 0.72 - 27th September 2010
187 Version 0.73 - 2nd October 2010
188188
189189 =head1 LICENCE
190190
+2
-2
lib/Devel/Cover/Annotation/Random.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use Getopt::Long;
1515
102102
103103 =head1 VERSION
104104
105 Version 0.72 - 27th September 2010
105 Version 0.73 - 2nd October 2010
106106
107107 =head1 LICENCE
108108
+2
-2
lib/Devel/Cover/Annotation/Svk.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use Getopt::Long;
1515 use Digest::MD5;
174174
175175 =head1 VERSION
176176
177 Version 0.72 - 27th September 2010
177 Version 0.73 - 2nd October 2010
178178
179179 =head1 LICENCE
180180
+2
-2
lib/Devel/Cover/Branch.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Criterion";
1515
8787
8888 =head1 VERSION
8989
90 Version 0.72 - 27th September 2010
90 Version 0.73 - 2nd October 2010
9191
9292 =head1 LICENCE
9393
+2
-2
lib/Devel/Cover/Condition.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Branch";
1515
4949
5050 =head1 VERSION
5151
52 Version 0.72 - 27th September 2010
52 Version 0.73 - 2nd October 2010
5353
5454 =head1 LICENCE
5555
+2
-2
lib/Devel/Cover/Condition_and_2.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Condition";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.72 - 27th September 2010
48 Version 0.73 - 2nd October 2010
4949
5050 =head1 LICENCE
5151
+2
-2
lib/Devel/Cover/Condition_and_3.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Condition";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.72 - 27th September 2010
48 Version 0.73 - 2nd October 2010
4949
5050 =head1 LICENCE
5151
+2
-2
lib/Devel/Cover/Condition_or_2.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Condition";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.72 - 27th September 2010
48 Version 0.73 - 2nd October 2010
4949
5050 =head1 LICENCE
5151
+2
-2
lib/Devel/Cover/Condition_or_3.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Condition";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.72 - 27th September 2010
48 Version 0.73 - 2nd October 2010
4949
5050 =head1 LICENCE
5151
+2
-2
lib/Devel/Cover/Condition_xor_4.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Condition";
1515
4444
4545 =head1 VERSION
4646
47 Version 0.72 - 27th September 2010
47 Version 0.73 - 2nd October 2010
4848
4949 =head1 LICENCE
5050
+13
-13
lib/Devel/Cover/Criterion.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
14 use Devel::Cover::Statement 0.72;
15 use Devel::Cover::Branch 0.72;
16 use Devel::Cover::Condition 0.72;
17 use Devel::Cover::Condition_or_2 0.72;
18 use Devel::Cover::Condition_or_3 0.72;
19 use Devel::Cover::Condition_and_2 0.72;
20 use Devel::Cover::Condition_and_3 0.72;
21 use Devel::Cover::Condition_xor_4 0.72;
22 use Devel::Cover::Subroutine 0.72;
23 use Devel::Cover::Time 0.72;
24 use Devel::Cover::Pod 0.72;
14 use Devel::Cover::Statement 0.73;
15 use Devel::Cover::Branch 0.73;
16 use Devel::Cover::Condition 0.73;
17 use Devel::Cover::Condition_or_2 0.73;
18 use Devel::Cover::Condition_or_3 0.73;
19 use Devel::Cover::Condition_and_2 0.73;
20 use Devel::Cover::Condition_and_3 0.73;
21 use Devel::Cover::Condition_xor_4 0.73;
22 use Devel::Cover::Subroutine 0.73;
23 use Devel::Cover::Time 0.73;
24 use Devel::Cover::Pod 0.73;
2525
2626 sub coverage { $_[0][0] }
2727 sub information { $_[0][1] }
9696
9797 =head1 VERSION
9898
99 Version 0.72 - 27th September 2010
99 Version 0.73 - 2nd October 2010
100100
101101 =head1 LICENCE
102102
+3
-3
lib/Devel/Cover/DB/File.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
14 use Devel::Cover::Criterion 0.72;
14 use Devel::Cover::Criterion 0.73;
1515
1616 sub calculate_summary
1717 {
7878
7979 =head1 VERSION
8080
81 Version 0.72 - 27th September 2010
81 Version 0.73 - 2nd October 2010
8282
8383 =head1 LICENCE
8484
+5
-3
lib/Devel/Cover/DB/Structure.pm less more
1515
1616 use Devel::Cover::DB;
1717
18 our $VERSION = "0.72";
18 our $VERSION = "0.73";
1919 our $AUTOLOAD;
2020
2121 sub new
196196 my $self = shift;
197197 my ($file) = @_;
198198
199 # warn "Opening $file for MD5 digest\n";
200
199201 my $digest;
200202 if (open my $fh, "<", $file)
201203 {
206208 {
207209 warn "Devel::Cover: Can't open $file for MD5 digest: $!\n"
208210 unless lc $file eq "-e";
209 # print STDERR Carp::longmess("in " . `pwd`);
211 # require "Cwd"; warn Carp::longmess("in " . Cwd::cwd());
210212 }
211213 $digest
212214 }
323325
324326 =head1 VERSION
325327
326 Version 0.72 - 27th September 2010
328 Version 0.73 - 2nd October 2010
327329
328330 =head1 LICENCE
329331
+6
-6
lib/Devel/Cover/DB.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
13
14 use Devel::Cover::Criterion 0.72;
15 use Devel::Cover::DB::File 0.72;
16 use Devel::Cover::DB::Structure 0.72;
12 our $VERSION = "0.73";
13
14 use Devel::Cover::Criterion 0.73;
15 use Devel::Cover::DB::File 0.73;
16 use Devel::Cover::DB::Structure 0.73;
1717
1818 use Carp;
1919 use File::Path;
10081008
10091009 =head1 VERSION
10101010
1011 Version 0.72 - 27th September 2010
1011 Version 0.73 - 2nd October 2010
10121012
10131013 =head1 LICENCE
10141014
+2
-2
lib/Devel/Cover/Op.pm less more
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.72";
14 our $VERSION = "0.73";
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.72 - 27th September 2010
114 Version 0.73 - 2nd October 2010
115115
116116 =head1 LICENCE
117117
+2
-2
lib/Devel/Cover/Pod.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Criterion";
1515
6565
6666 =head1 VERSION
6767
68 Version 0.72 - 27th September 2010
68 Version 0.73 - 2nd October 2010
6969
7070 =head1 LICENCE
7171
+3
-3
lib/Devel/Cover/Report/Compilation.pm less more
1717 use strict;
1818 use warnings;
1919
20 our $VERSION = "0.72";
20 our $VERSION = "0.73";
2121
22 use Devel::Cover::DB 0.72;
22 use Devel::Cover::DB 0.73;
2323
2424 # TODO - uncoverable code?
2525
168168
169169 =head1 VERSION
170170
171 Version 0.72 - 27th September 2010
171 Version 0.73 - 2nd October 2010
172172
173173 =head1 LICENCE
174174
+2
-2
lib/Devel/Cover/Report/Html.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Report::Html_minimal";
1515
4545
4646 =head1 VERSION
4747
48 Version 0.72 - 27th September 2010
48 Version 0.73 - 2nd October 2010
4949
5050 =head1 LICENCE
5151
+7
-7
lib/Devel/Cover/Report/Html_basic.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
13
14 use Devel::Cover::DB 0.72;
15 use Devel::Cover::Web 0.72 "write_file";
12 our $VERSION = "0.73";
13
14 use Devel::Cover::DB 0.73;
15 use Devel::Cover::Web 0.73 "write_file";
1616
1717 use Getopt::Long;
1818 use Template 2.00;
448448 use strict;
449449 use warnings;
450450
451 our $VERSION = "0.72";
451 our $VERSION = "0.73";
452452
453453 use base "Template::Provider";
454454
468468 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
469469 <html xmlns="http://www.w3.org/1999/xhtml">
470470 <!--
471 This file was generated by Devel::Cover Version 0.72
471 This file was generated by Devel::Cover Version 0.73
472472 Devel::Cover is copyright 2001-2010, Paul Johnson (pjcj@cpan.org)
473473 Devel::Cover is free. It is licensed under the same terms as Perl itself.
474474 The latest version of Devel::Cover should be available from my homepage:
769769
770770 =head1 VERSION
771771
772 Version 0.72 - 27th September 2010
772 Version 0.73 - 2nd October 2010
773773
774774 =head1 LICENCE
775775
+6
-6
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.72;
7 use Devel::Cover::Truth_Table 0.72;
8
9 our $VERSION = "0.72";
6 use Devel::Cover::DB 0.73;
7 use Devel::Cover::Truth_Table 0.73;
8
9 our $VERSION = "0.73";
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.72
263 This file was generated by Devel::Cover Version 0.73
264264 Devel::Cover is copyright 2001-2010, 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:
775775
776776 =head1 VERSION
777777
778 Version 0.72 - 27th September 2010
778 Version 0.73 - 2nd October 2010
779779
780780 =head1 LICENCE
781781
+7
-7
lib/Devel/Cover/Report/Html_subtle.pm less more
11 use strict;
22 use warnings;
33
4 our $VERSION = "0.72";
5
6 use Devel::Cover::DB 0.72;
7 use Devel::Cover::Truth_Table 0.72;
4 our $VERSION = "0.73";
5
6 use Devel::Cover::DB 0.73;
7 use Devel::Cover::Truth_Table 0.73;
88
99 use Template 2.00;
1010 use CGI;
385385 use strict;
386386 use warnings;
387387
388 our $VERSION = "0.72";
388 our $VERSION = "0.73";
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.72
406 This file was generated by Devel::Cover Version 0.73
407407 Devel::Cover is copyright 2001-2010, 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.72 - 27th September 2010
730 Version 0.73 - 2nd October 2010
731731
732732 =head1 LICENCE
733733
+3
-3
lib/Devel/Cover/Report/Sort.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
14 use Devel::Cover::DB 0.72;
14 use Devel::Cover::DB 0.73;
1515
1616 sub print_sort
1717 {
9494
9595 =head1 VERSION
9696
97 Version 0.72 - 27th September 2010
97 Version 0.73 - 2nd October 2010
9898
9999 =head1 LICENCE
100100
+4
-4
lib/Devel/Cover/Report/Text.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
13
14 use Devel::Cover::DB 0.72;
12 our $VERSION = "0.73";
13
14 use Devel::Cover::DB 0.73;
1515
1616 sub print_runs
1717 {
312312
313313 =head1 VERSION
314314
315 Version 0.72 - 27th September 2010
315 Version 0.73 - 2nd October 2010
316316
317317 =head1 LICENCE
318318
+4
-4
lib/Devel/Cover/Report/Text2.pm less more
11 use strict;
22 use warnings;
33
4 our $VERSION = "0.72";
5
6 use Devel::Cover::DB 0.72;
4 our $VERSION = "0.73";
5
6 use Devel::Cover::DB 0.73;
77 use Devel::Cover::Truth_Table;
88
99 my %format = (
190190
191191 =head1 VERSION
192192
193 Version 0.72 - 27th September 2010
193 Version 0.73 - 2nd October 2010
194194
195195 =head1 LICENCE
196196
+2
-2
lib/Devel/Cover/Statement.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Criterion";
1515
5050
5151 =head1 VERSION
5252
53 Version 0.72 - 27th September 2010
53 Version 0.73 - 2nd October 2010
5454
5555 =head1 LICENCE
5656
+2
-2
lib/Devel/Cover/Subroutine.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Criterion";
1515
4949
5050 =head1 VERSION
5151
52 Version 0.72 - 27th September 2010
52 Version 0.73 - 2nd October 2010
5353
5454 =head1 LICENCE
5555
+2
-2
lib/Devel/Cover/Test.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use Carp;
1515
1616 use File::Spec;
1717 use Test;
1818
19 use Devel::Cover::Inc 0.72;
19 use Devel::Cover::Inc 0.73;
2020
2121 my $Test;
2222
+2
-2
lib/Devel/Cover/Time.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use base "Devel::Cover::Criterion";
1515
7070
7171 =head1 VERSION
7272
73 Version 0.72 - 27th September 2010
73 Version 0.73 - 2nd October 2010
7474
7575 =head1 LICENCE
7676
+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.72";
182 our $VERSION = "0.73";
183183
184184 #-------------------------------------------------------------------------------
185185 # Subroutine : new()
566566
567567 =head1 VERSION
568568
569 Version 0.72 - 27th September 2010
569 Version 0.73 - 2nd October 2010
570570
571571 =head1 LICENSE
572572
+1
-1
lib/Devel/Cover/Tutorial.pod less more
162162
163163 =head1 VERSION
164164
165 Version 0.72 - 27th September 2010
165 Version 0.73 - 2nd October 2010
166166
167167 =head1 LICENCE
168168
+2
-2
lib/Devel/Cover/Web.pm less more
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.72";
14 our $VERSION = "0.73";
1515
1616 use Exporter;
1717
933933
934934 =head1 VERSION
935935
936 Version 0.72 - 27th September 2010
936 Version 0.73 - 2nd October 2010
937937
938938 =head1 LICENCE
939939
+34
-23
lib/Devel/Cover.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use DynaLoader ();
1515 our @ISA = "DynaLoader";
1616
17 use Devel::Cover::DB 0.72;
18 use Devel::Cover::Inc 0.72;
17 use Devel::Cover::DB 0.73;
18 use Devel::Cover::Inc 0.73;
1919
2020 use B qw( class ppname main_cv main_start main_root walksymtable OPf_KIDS );
2121 use B::Debug;
293293 warn __PACKAGE__ . ": Unknown option $_ ignored\n";
294294 }
295295
296 my $ci = $^O eq "MSWin32";
297 @Select_re = map qr/$_/, @Select;
298 @Ignore_re = map qr/$_/, @Ignore;
299 @Inc_re = map $ci ? qr/^\Q$_\//i : qr/^\Q$_\//, @Inc;
300
296301 bootstrap Devel::Cover $VERSION;
297302
298303 if (defined $Dir)
310315
311316 unless (-d $DB)
312317 {
313 mkdir $DB, 0700 or croak "Can't mkdir $DB: $!\n";
314 }
315 $DB = $1 if Cwd::abs_path($DB) =~ /(.*)/;
318 mkdir $DB, 0700 or die "Can't mkdir $DB: $!";
319 }
320 $DB = $1 if abs_path($DB) =~ /(.*)/;
316321 Devel::Cover::DB->delete($DB) unless $Merge;
317322
318323 if ($blib)
322327 push @Ignore, "^t/", '\\.t$', '^test\\.pl$';
323328 }
324329
325 my $ci = $^O eq "MSWin32";
326 @Select_re = map qr/$_/, @Select;
327 @Ignore_re = map qr/$_/, @Ignore;
328 @Inc_re = map $ci ? qr/^\Q$_\//i : qr/^\Q$_\//, @Inc;
329330 %Files = (); # start gathering file information from scratch
330331
331332 for my $c (Devel::Cover::DB->new->criteria)
432433 }
433434 if ($] >= 5.008)
434435 {
435 if ($^O eq "MSWin32" || $^O eq "cygwin")
436 {
437 # TODO - Windows seems busted here
436 my $inc;
437 $inc ||= $file =~ $_ for @Inc_re;
438 # warn "inc for [$file] is [$inc] @Inc_re";
439 if ($inc && ($^O eq "MSWin32" || $^O eq "cygwin"))
440 {
441 # Windows' Cwd::_win32_cwd() calls eval which will recurse back
442 # here if we call abs_path, so we just assume it's normalised.
443 # warn "giving up on getting normalised filename from <$file>\n";
438444 }
439445 else
440446 {
441447 # print STDERR "getting abs_path <$file> ";
442 my $abs;
443 $abs = abs_path($file) unless -l $file; # leave symbolic links
444 # print STDERR "giving <$file> ";
445 $file = $abs if defined $abs;
448 if (-e $file) # Windows likes the file to exist
449 {
450 my $abs;
451 $abs = abs_path($file) unless -l $file; # leave symbolic links
452 # print STDERR "giving <$abs> ";
453 $file = $abs if defined $abs;
454 }
446455 }
447456 # print STDERR "finally <$file> <$Dir>\n";
448457 }
449458 $file =~ s|\\|/|g if $^O eq "MSWin32";
450 $file =~ s|^$Dir/||;
459 $file =~ s|^$Dir/|| if defined $Dir;
451460
452461 # print STDERR "File: $f => $file\n";
453462
482491 {
483492 my ($file) = @_;
484493
494 # warn "use_file($file)\n";
495
485496 # die "bad file" unless length $file;
486497
487 $file = $1 if $file =~ /^\(eval \d+\)\[(.*):\d+\]/;
498 $file = $1 if $file =~ /^\(eval \d+\)\[(.+):\d+\]/;
488499 $file =~ s/ \(autosplit into .*\)$//;
489500
490501 return $Files{$file} if exists $Files{$file};
502 return 0 if $file =~ /\(eval \d+\)/ ||
503 $file =~ /^\.\.[\/\\]\.\.[\/\\]lib[\/\\](?:Storable|POSIX).pm$/;
491504
492505 my $f = normalised_file($file);
493506
501514 # system "pwd; ls -l '$file'";
502515 $Files{$file} = -e $file ? 1 : 0;
503516 warn __PACKAGE__ . qq(: Can't find file "$file" (@_): ignored.\n)
504 unless $Files{$file} || $Silent || $file =~ /\(eval \d+\)/ ||
505 $file eq "../../lib/Storable.pm" ||
506 $file eq "../../lib/POSIX.pm";
517 unless $Files{$file} || $Silent;
507518
508519 $Files{$file}
509520 }
14881499
14891500 =head1 VERSION
14901501
1491 Version 0.72 - 27th September 2010
1502 Version 0.73 - 2nd October 2010
14921503
14931504 =head1 LICENCE
14941505
+2
-2
tests/change.t less more
1111
1212 use File::Copy;
1313
14 use Devel::Cover::Inc 0.72;
15 use Devel::Cover::Test 0.72;
14 use Devel::Cover::Inc 0.73;
15 use Devel::Cover::Test 0.73;
1616
1717 my $base = $Devel::Cover::Inc::Base;
1818
+1
-1
tests/eval_sub.t less more
99 use strict;
1010 use warnings;
1111
12 use Devel::Cover::Test 0.72;
12 use Devel::Cover::Test 0.73;
1313
1414 my $run_test = sub
1515 {
+1
-1
tests/eval_use.t less more
99 use strict;
1010 use warnings;
1111
12 use Devel::Cover::Test 0.72;
12 use Devel::Cover::Test 0.73;
1313
1414 my $run_test = sub
1515 {
+2
-2
tests/md5.t less more
1111
1212 use File::Copy;
1313
14 use Devel::Cover::Inc 0.72;
15 use Devel::Cover::Test 0.72;
14 use Devel::Cover::Inc 0.73;
15 use Devel::Cover::Test 0.73;
1616
1717 my $base = $Devel::Cover::Inc::Base;
1818
+0
-29
typemap less more
0 TYPEMAP
1
2 B::OP T_OP_OBJ
3 B::AV T_SV_OBJ
4
5 INPUT
6 T_OP_OBJ
7 if (SvROK($arg)) {
8 IV tmp = SvIV((SV*)SvRV($arg));
9 $var = INT2PTR($type,tmp);
10 }
11 else
12 croak(\"$var is not a reference\")
13
14 T_SV_OBJ
15 if (SvROK($arg)) {
16 IV tmp = SvIV((SV*)SvRV($arg));
17 $var = INT2PTR($type,tmp);
18 }
19 else
20 croak(\"$var is not a reference\")
21
22
23 OUTPUT
24 T_OP_OBJ
25 sv_setiv(newSVrv($arg, cc_opclassname(aTHX_ (OP*)$var)), PTR2IV($var));
26
27 T_SV_OBJ
28 make_sv_object(aTHX_ ($arg), (SV*)($var));
+2
-2
utils/Devel/Cover/BuildUtils.pm less more
99 use strict;
1010 use warnings;
1111
12 our $VERSION = "0.72";
12 our $VERSION = "0.73";
1313
1414 use Exporter;
1515
7676
7777 =head1 VERSION
7878
79 Version 0.72 - 27th September 2010
79 Version 0.73 - 2nd October 2010
8080
8181 =head1 LICENCE
8282
+2
-2
utils/create_gold less more
1111 use strict;
1212 use warnings;
1313
14 our $VERSION = "0.72";
14 our $VERSION = "0.73";
1515
1616 use blib;
1717
1818 use Config;
1919 exit if $Config{useithreads};
2020
21 use Devel::Cover::Test 0.72;
21 use Devel::Cover::Test 0.73;
2222
2323 my @tests = @ARGV;
2424
+29
-0
utils/typemap less more
0 TYPEMAP
1
2 B::OP T_OP_OBJ
3 B::AV T_SV_OBJ
4
5 INPUT
6 T_OP_OBJ
7 if (SvROK($arg)) {
8 IV tmp = SvIV((SV*)SvRV($arg));
9 $var = INT2PTR($type,tmp);
10 }
11 else
12 croak(\"$var is not a reference\")
13
14 T_SV_OBJ
15 if (SvROK($arg)) {
16 IV tmp = SvIV((SV*)SvRV($arg));
17 $var = INT2PTR($type,tmp);
18 }
19 else
20 croak(\"$var is not a reference\")
21
22
23 OUTPUT
24 T_OP_OBJ
25 sv_setiv(newSVrv($arg, cc_opclassname(aTHX_ (OP*)$var)), PTR2IV($var));
26
27 T_SV_OBJ
28 make_sv_object(aTHX_ ($arg), (SV*)($var));