Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

import Devel::Cover 0.27

  • Loading branch information...
commit a0df00ba6eceafd7beeee26109bacdf2fa5b611e 1 parent 69e20fb
@pjcj pjcj authored
Showing with 169 additions and 136 deletions.
  1. +12 −9 CHANGES
  2. +3 −2 META.yml
  3. +28 −6 Makefile.PL
  4. +3 −3 TODO
  5. +3 −3 cover
  6. +8 −6 cpancover
  7. +2 −2 create_gold
  8. +3 −3 gcov2perl
  9. +23 −8 lib/Devel/Cover.pm
  10. +2 −2 lib/Devel/Cover/Branch.pm
  11. +2 −2 lib/Devel/Cover/Condition.pm
  12. +2 −2 lib/Devel/Cover/Condition_and_3.pm
  13. +2 −2 lib/Devel/Cover/Condition_or_2.pm
  14. +2 −2 lib/Devel/Cover/Condition_or_3.pm
  15. +2 −2 lib/Devel/Cover/Condition_xor_4.pm
  16. +13 −13 lib/Devel/Cover/Criterion.pm
  17. +17 −32 lib/Devel/Cover/DB.pm
  18. +3 −3 lib/Devel/Cover/DB/File.pm
  19. +1 −1  lib/Devel/Cover/Op.pm
  20. +2 −2 lib/Devel/Cover/Pod.pm
  21. +3 −3 lib/Devel/Cover/Report/Html.pm
  22. +5 −5 lib/Devel/Cover/Report/Html_basic.pm
  23. +7 −6 lib/Devel/Cover/Report/Html_subtle.pm
  24. +3 −3 lib/Devel/Cover/Report/Text.pm
  25. +2 −2 lib/Devel/Cover/Report/Text2.pm
  26. +2 −2 lib/Devel/Cover/Statement.pm
  27. +2 −2 lib/Devel/Cover/Subroutine.pm
  28. +7 −3 lib/Devel/Cover/Test.pm
  29. +2 −2 lib/Devel/Cover/Time.pm
  30. +2 −2 lib/Devel/Cover/Truth_Table.pm
  31. +1 −1  lib/Devel/Cover/Tutorial.pod
View
21 CHANGES
@@ -73,8 +73,8 @@ Release 0.15 - 5th September 2002
- Automatically generate tests. Well, their infrastructure anyway.
- Move Cover to lib/Devel/Cover to keep case insensitive filesystems happy.
- Remove -detail option. (It belongs to cover.)
- - Work on op addresses and sequence numbers instead of just op addresses,
- to be (almost) unique.
+ - Work on op addresses and sequence numbers instead of just op addresses, to be
+ (almost) unique.
- Clean up subroutine location code.
- Fix -select to override anything else.
- Add condition coverage for && and || ops.
@@ -92,8 +92,8 @@ Release 0.16 - 9th September 2002
- Make branch coverage line numbers more accurate.
Release 0.17 - 15th September 2002
- - Call check_files() in report() to ensure we pick up anything added
- to the symbol table while the program was running.
+ - Call check_files() in report() to ensure we pick up anything added to the
+ symbol table while the program was running.
Release 0.18 - 28th September 2002
- Redo the way condition coverage is gathered - abuse op_ppaddr.
@@ -120,11 +120,9 @@ Release 0.21 - 1st September 2003
- Handle $x || next and friends.
- Add html_subtle and text2 backends (Michael Carman).
- Rename html backend to html_basic.
- - Make html backend a wrapper around preferred style, currently
- html_subtle.
- - Make time coverage a little more accurate. OK, a lot more accurate,
- it's at least on the right line now, but I still wouldn't really
- trust it.
+ - Make html backend a wrapper around preferred style, currently html_subtle.
+ - Make time coverage a little more accurate. OK, a lot more accurate, it's at
+ least on the right line now, but I still wouldn't really trust it.
- Fix pod coverage which has been broken for a while.
- Don't collect branch coverage when not asked for.
- Provide golden results for different Perl versions.
@@ -153,3 +151,8 @@ Release 0.25 - 10th October 2003
Release 0.26 - 12th October 2003
- Decline to output HTML results for conditions containing > 16 terms.
- Add titles to HTML output.
+
+Release 0.27 -
+ - Behave sensibly if import() is not called, for example when MakeMaker does a
+ PREREQ_PM check.
+ - Use Storable for the database instead if Data::Dumper/eval (Michael Carman).
View
5 META.yml
@@ -1,10 +1,11 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Devel-Cover
-version: 0.26
+version: 0.27
version_from:
installdirs: site
requires:
+ Storable: 0
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.19
View
34 Makefile.PL
@@ -19,8 +19,8 @@ use ExtUtils::Manifest "maniread";
$| = 1;
-my $Version = "0.26";
-my $Date = "12th October 2003";
+my $Version = "0.27";
+my $Date = "9th November 2003";
my $Author = 'pjcj@cpan.org';
my @perlbug = ("perlbug", "-a", $Author,
@@ -108,6 +108,26 @@ print "done\n\n";
my $e;
+print "checking for Storable.pm ........ ";
+
+$e = <<EOM;
+
+Storable.pm is required to store the coverage database. You can
+download Storable from CPAN.
+
+EOM
+
+eval "use Storable";
+if (my $m = $INC{"Storable.pm"})
+{
+ my $v = eval { no warnings; $Storable::VERSION };
+ print "$v $m\n";
+}
+else
+{
+ print "not found\n\n$e\n";
+}
+
print "checking for Template.pm version 2.00 ........ ";
$e = <<EOM;
@@ -151,7 +171,7 @@ else
print "not found\n\n$e\n";
}
-my $latest_tested = 5.008001;
+my $latest_tested = 5.008002;
print <<EOM if $] > $latest_tested;
Devel::Cover $Version has not been tested with perl $].
@@ -160,6 +180,8 @@ You may well find failing tests.
EOM
+print "\n" x 3;
+
$ExtUtils::MakeMaker::Verbose = 0;
WriteMakefile
@@ -170,6 +192,7 @@ WriteMakefile
ABSTRACT => "Code coverage metrics for Perl",
DIR => [],
EXE_FILES => [ "cover", "gcov2perl" ],
+ PREREQ_PM => { Storable => 0 },
dist => { COMPRESS => "gzip --best --force" },
clean => { FILES => join " ", "t/*", map "$_.version", @versions },
realclean => { FILES => "lib/Devel/Cover/Inc.pm cover_db t" },
@@ -244,11 +267,10 @@ _run : pure_all
> \$(TEST).out
run : _run
-\t gvim -d -geom 88x60+104+0 \$(TEST).out
+\t gvim -d \$(TEST).out
diff : _run
-\t gvim -d -geom 185x83+0+0 -font 8x13 \\
- test_output/cover/\$(TEST).$test_version \$(TEST).out
+\t gvim -d -font 8x13 test_output/cover/\$(TEST).$test_version \$(TEST).out
gold : pure_all
\t \$(PERL) create_gold \$(TEST)
View
6 TODO
@@ -5,7 +5,7 @@
- Profiling and speedups.
- BEGIN and END blocks.
Code in modules without subs. Requires callbacks from perl?
-- Move away from Data::Dumper. To?
+- Move away from Storable? To?
- Work with memoize.
- Fix up Devel::Cover::Op
- See if the XS code leaks, and fix it if it does.
@@ -14,8 +14,8 @@
- Improve textual output.
- Add platform and version info to DB.
- Refactor output routines to use common template data.
-- Add popups to html output to specify x/y = z% (or some other way)
- Look at time coverage again - collecting for too many ops?
-- MD5 file and check it hasn't changed.
+- MD5 file and check it hasn't changed (Integrate patch from Michael Carman).
- Merge data from dynamically created subs.
- Separate output for pod coverage, like subroutine coverage.
+- Extend cpancover so people can upload databases.
View
6 cover
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
-use Devel::Cover::DB 0.26;
+use Devel::Cover::DB 0.27;
use Getopt::Long;
@@ -203,7 +203,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
14 cpancover
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
-use Devel::Cover::DB 0.26;
+use Devel::Cover::DB 0.27;
use Cwd ();
use File::Find ();
@@ -26,7 +26,7 @@ my $Template;
my $Options =
{
- cover_source => "/home/pjcj/g/perl/dev/Devel/Cover",
+ cover_source => "/home/pjcj/g/perl/dev/Devel-Cover",
directory => Cwd::cwd(),
force => 0,
module => [],
@@ -114,6 +114,7 @@ sub get_cover
{
print "Testing $module\n";
sys "$^X $inc $s/cover -delete $db";
+ sys "make";
sys "make test";
}
@@ -176,6 +177,7 @@ code {
table {
/* border: solid 1px #000000;*/
+/* border-collapse: collapse;*/
}
td,th {
border: solid 1px #cccccc;
@@ -309,7 +311,7 @@ package Devel::Cover::Cpancover::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Template::Provider";
@@ -345,7 +347,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.26
+This file was generated by Devel::Cover Version 0.27
Devel::Cover is copyright 2001-2003, Paul Johnson (pjcj@cpan.org)
@@ -454,7 +456,7 @@ The following exit values are returned:
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 create_gold
@@ -12,11 +12,11 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use blib;
-use Devel::Cover::Test 0.26;
+use Devel::Cover::Test 0.27;
my @tests = @ARGV;
View
6 gcov2perl
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
-use Devel::Cover::DB 0.26;
+use Devel::Cover::DB 0.27;
use Getopt::Long;
use Pod::Usage;
@@ -128,7 +128,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
31 lib/Devel/Cover.pm
@@ -10,13 +10,13 @@ package Devel::Cover;
use strict;
use warnings;
-our @ISA = qw( DynaLoader );
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use DynaLoader ();
+our @ISA = qw( DynaLoader );
-use Devel::Cover::DB 0.26;
-use Devel::Cover::Inc 0.26;
+use Devel::Cover::DB 0.27;
+use Devel::Cover::Inc 0.27;
use B qw( class ppname main_cv main_start main_root walksymtable OPf_KIDS );
use B::Debug;
@@ -28,6 +28,7 @@ use Data::Dumper;
BEGIN { eval "use Pod::Coverage 0.06" } # We'll use this if it is available.
+my $Initialised; # import() has been called.
my $Silent = undef; # Output nothing.
my $Dir; # Directory in cover will be gathered.
@@ -68,8 +69,14 @@ BEGIN { @Inc = @Devel::Cover::Inc::Inc }
# BEGIN { $^P = 0x02 | 0x04 | 0x100 }
BEGIN { $^P = 0x04 | 0x100 }
+{
+
+no warnings "void"; # Avoid "Too late to run CHECK block" warning.
+
CHECK
{
+ return unless $Initialised;
+
check_files();
# reset_op_seq(main_root);
@@ -104,7 +111,9 @@ EOM
unless $Silent;
}
-END { report() }
+}
+
+END { report() if $Initialised }
sub import
{
@@ -162,6 +171,8 @@ sub import
}
%Coverage = (all => 1) unless keys %Coverage;
+
+ $Initialised = 1;
}
sub cover_names_to_val
@@ -309,6 +320,10 @@ sub check_files
sub report
{
+ die "Devel::Cover::import() not run: " .
+ "did you require instead of use Devel::Cover?\n"
+ unless defined $Dir;
+
chdir $Dir or die __PACKAGE__ . ": Can't chdir $Dir: $!\n";
my @collected = get_coverage();
@@ -620,7 +635,8 @@ sub B::Deparse::logop
}
}
-sub B::Deparse::logassignop {
+sub B::Deparse::logassignop
+{
my $self = shift;
my ($op, $cx, $opname) = @_;
my $left = $op->first;
@@ -761,7 +777,6 @@ Requirements:
+inc path - Append to prefixes of files to ignore.
-indent indent - Set indentation level to indent. Don't use this.
-merge val - Merge databases, for multiple test benches (default on).
- -profile val - Turn on profiling iff val is true (default on).
-select RE - Only report on files matching RE.
-summary val - Print summary information iff val is true (default on).
@@ -788,7 +803,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Branch.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Branch;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Criterion";
@@ -76,7 +76,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Criterion";
@@ -80,7 +80,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_and_3.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_and_3;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_or_2.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_2;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_or_3.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_3;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_xor_4.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_xor_4;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Condition";
@@ -45,7 +45,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
26 lib/Devel/Cover/Criterion.pm
@@ -10,18 +10,18 @@ package Devel::Cover::Criterion;
use strict;
use warnings;
-our $VERSION = "0.26";
-
-use Devel::Cover::Statement 0.26;
-use Devel::Cover::Branch 0.26;
-use Devel::Cover::Condition 0.26;
-use Devel::Cover::Condition_or_2 0.26;
-use Devel::Cover::Condition_or_3 0.26;
-use Devel::Cover::Condition_and_3 0.26;
-use Devel::Cover::Condition_xor_4 0.26;
-use Devel::Cover::Subroutine 0.26;
-use Devel::Cover::Time 0.26;
-use Devel::Cover::Pod 0.26;
+our $VERSION = "0.27";
+
+use Devel::Cover::Statement 0.27;
+use Devel::Cover::Branch 0.27;
+use Devel::Cover::Condition 0.27;
+use Devel::Cover::Condition_or_2 0.27;
+use Devel::Cover::Condition_or_3 0.27;
+use Devel::Cover::Condition_and_3 0.27;
+use Devel::Cover::Condition_xor_4 0.27;
+use Devel::Cover::Subroutine 0.27;
+use Devel::Cover::Time 0.27;
+use Devel::Cover::Pod 0.27;
sub new
{
@@ -79,7 +79,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
49 lib/Devel/Cover/DB.pm
@@ -10,16 +10,17 @@ package Devel::Cover::DB;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
-use Devel::Cover::DB::File 0.26;
-use Devel::Cover::Criterion 0.26;
+use Devel::Cover::DB::File 0.27;
+use Devel::Cover::Criterion 0.27;
use Carp;
use Data::Dumper;
use File::Path;
+use Storable;
-my $DB = "cover.4"; # Version 4 of the database.
+my $DB = "cover.5"; # Version 5 of the database.
sub new
{
@@ -49,15 +50,7 @@ sub new
$self->validate_db;
$file = "$self->{db}/$DB";
return $self unless -e $file;
- open F, "<$file" or croak "Unable to open $file: $!";
- $self->{filehandle} = *F{IO};
- }
-
- $self->read if defined $self->{filehandle};
-
- if (defined $file)
- {
- close F or croak "Unable to close $file: $!";
+ $self->read($file);
}
croak "No input db, filehandle or cover" unless defined $self->{cover};
@@ -70,42 +63,34 @@ sub criteria_short { @{$_[0]->{ criteria_short}} }
sub all_criteria { @{$_[0]->{all_criteria }} }
sub all_criteria_short { @{$_[0]->{all_criteria_short}} }
-sub read
-{
+sub read {
my $self = shift;
- local $/;
- my $db;
- my $fh = $self->{filehandle};
- eval <$fh>;
- croak $@ if $@;
+ my $file = shift;
+ my $db = retrieve($file);
+
$self->{cover} = $db->{cover};
$self->{collected} = $db->{collected};
$self->{indent} = $db->{indent};
$self
}
-sub write
-{
+sub write {
my $self = shift;
$self->{db} = shift if @_;
croak "No db specified" unless length $self->{db};
$self->validate_db;
- my $db =
- {
+
+ my $db = {
cover => $self->{cover},
collected => $self->{collected},
indent => $self->{indent},
};
- local $Data::Dumper::Indent = $self->indent;
- local $Data::Dumper::Sortkeys = 1;
- local $Data::Dumper::Useperl = 1; # TODO - remove this when possible
- my $file = "$self->{db}/$DB";
- open OUT, ">$file" or croak "Cannot open $file\n";
- print OUT Data::Dumper->Dump([$db], ["db"]);
- close OUT or croak "Cannot close $file\n";
+
+ Storable::nstore($db, "$self->{db}/$DB");
$self
}
+
sub delete
{
my $self = shift;
@@ -561,7 +546,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
6 lib/Devel/Cover/DB/File.pm
@@ -10,9 +10,9 @@ package Devel::Cover::DB::File;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
-use Devel::Cover::Criterion 0.26;
+use Devel::Cover::Criterion 0.27;
sub calculate_summary
{
@@ -78,7 +78,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
2  lib/Devel/Cover/Op.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Op;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use Devel::Cover qw( -ignore blib -ignore \\wB\\w -indent 1 );
use B::Concise qw( set_style add_callback );
View
4 lib/Devel/Cover/Pod.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Pod;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Criterion";
@@ -72,7 +72,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
6 lib/Devel/Cover/Report/Html.pm
@@ -10,9 +10,9 @@ package Devel::Cover::Report::Html;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
-use Devel::Cover::Report::Html_subtle 0.26;
+use Devel::Cover::Report::Html_subtle 0.27;
sub report
{
@@ -52,7 +52,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
10 lib/Devel/Cover/Report/Html_basic.pm
@@ -10,9 +10,9 @@ package Devel::Cover::Report::Html_basic;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
-use Devel::Cover::DB 0.26;
+use Devel::Cover::DB 0.27;
use Cwd ();
use Template 2.00;
@@ -280,7 +280,7 @@ package Devel::Cover::Report::Html_basic::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Template::Provider";
@@ -316,7 +316,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.26
+This file was generated by Devel::Cover Version 0.27
Devel::Cover is copyright 2001-2002, Paul Johnson (pjcj@cpan.org)
@@ -535,7 +535,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
13 lib/Devel/Cover/Report/Html_subtle.pm
@@ -2,10 +2,10 @@ package Devel::Cover::Report::Html_subtle;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
-use Devel::Cover::DB 0.26;
-use Devel::Cover::Truth_Table 0.26;
+use Devel::Cover::DB 0.27;
+use Devel::Cover::Truth_Table 0.27;
use Cwd();
use Template 2.00;
@@ -388,7 +388,7 @@ package Devel::Cover::Report::Html_subtle::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Template::Provider";
@@ -406,7 +406,7 @@ sub fetch {
$Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.26
+This file was generated by Devel::Cover Version 0.27
Devel::Cover is copyright 2001-2002, Paul Johnson (pjcj@cpan.org)
@@ -733,7 +733,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
@@ -781,6 +781,7 @@ code {
table {
/* border: solid 1px #000000;*/
+/* border-collapse: collapse;*/
}
td,th {
border: solid 1px #cccccc;
View
6 lib/Devel/Cover/Report/Text.pm
@@ -10,9 +10,9 @@ package Devel::Cover::Report::Text;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
-use Devel::Cover::DB 0.26;
+use Devel::Cover::DB 0.27;
sub print_file
{
@@ -263,7 +263,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Report/Text2.pm
@@ -4,7 +4,7 @@ use warnings;
our $VERSION = '0.20';
-use Devel::Cover::DB 0.26;
+use Devel::Cover::DB 0.27;
use Devel::Cover::Truth_Table;
my %format = (
@@ -191,7 +191,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Statement.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Statement;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Criterion";
@@ -68,7 +68,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Subroutine.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Subroutine;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Criterion";
@@ -69,7 +69,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
10 lib/Devel/Cover/Test.pm
@@ -10,14 +10,14 @@ package Devel::Cover::Test;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use Carp;
use File::Spec;
use Test;
-use Devel::Cover::Inc 0.26;
+use Devel::Cover::Inc 0.27;
sub new
{
@@ -108,9 +108,13 @@ sub cover_gold
{
my $self = shift;
- my $latest_tested = 5.008001;
+ my $latest_tested = 5.008002;
my $v = $] > $latest_tested ? $latest_tested : $];
+ # Backwards compatible maintenance releases
+ $v = 5.008001 if $v eq "5.008002";
+ $v = 5.006001 if $v eq "5.006002";
+
$v = $ENV{__COVER_GOLDEN_VERSION} if exists $ENV{__COVER_GOLDEN_VERSION};
"$Devel::Cover::Inc::Base/test_output/cover/$self->{test}.$v"
View
4 lib/Devel/Cover/Time.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Time;
use strict;
use warnings;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
use base "Devel::Cover::Criterion";
@@ -69,7 +69,7 @@ Huh?
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Truth_Table.pm
@@ -173,7 +173,7 @@ sub covered {
package Devel::Cover::Truth_Table;
use warnings;
use strict;
-our $VERSION = "0.26";
+our $VERSION = "0.27";
#-------------------------------------------------------------------------------
# Subroutine : new()
@@ -557,7 +557,7 @@ None that I'm aware of...
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENSE
View
2  lib/Devel/Cover/Tutorial.pod
@@ -163,7 +163,7 @@ basis for future research.
=head1 VERSION
-Version 0.26 - 12th October 2003
+Version 0.27 - 9th November 2003
=head1 LICENCE
Please sign in to comment.
Something went wrong with that request. Please try again.