Permalink
Browse files

import Devel::Cover 0.25

  • Loading branch information...
1 parent 2eb1bed commit ebc643ffc9eaa62876a66723459d6cea033591a7 @pjcj committed Nov 3, 2004
View
@@ -145,3 +145,7 @@ Release 0.24 - 10th October 2003
- Add -dir option and default it to cwd.
- Ignore test.pl in cpancover.
- Display pod coverage in cpancover.
+
+Release 0.25 - 10th October 2003
+ - Fix for perl 5.6.1. Cwd::abs_path($d) gets upset if $d doesn't exist.
+ - Start of some changes to cpancover HTML.
View
@@ -1,7 +1,7 @@
# 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.24
+version: 0.25
version_from:
installdirs: site
requires:
View
@@ -19,7 +19,7 @@ use ExtUtils::Manifest "maniread";
$| = 1;
-my $Version = "0.24";
+my $Version = "0.25";
my $Date = "10th October 2003";
my $Author = 'pjcj@cpan.org';
View
@@ -17,6 +17,5 @@
- 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.
-- Make path to DB absolute based on cwd.
- Merge data from dynamically created subs.
- Separate output for pod coverage, like subroutine coverage.
View
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
-use Devel::Cover::DB 0.24;
+use Devel::Cover::DB 0.25;
use Getopt::Long;
@@ -202,7 +202,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
View
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
-use Devel::Cover::DB 0.24;
+use Devel::Cover::DB 0.25;
use Cwd ();
use File::Find ();
@@ -262,10 +262,13 @@ sub write_html
for my $criterion (@$criteria)
{
- my $pc = $db->summary("Total", $criterion, "percentage");
+ my $summary = $db->summary("Total", $criterion);
+ my $pc = $summary->{percentage};
$pc = defined $pc ? sprintf "%6.2f", $pc : "n/a";
- $vals{$module}{$criterion}{pc} = $pc;
- $vals{$module}{$criterion}{class} = class($pc);
+ $vals{$module}{$criterion}{pc} = $pc;
+ $vals{$module}{$criterion}{class} = class($pc);
+ $vals{$module}{$criterion}{details} =
+ ($summary->{covered} || 0) . " / " . ($summary->{total} || 0);
}
}
};
@@ -306,7 +309,7 @@ package Devel::Cover::Cpancover::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use base "Template::Provider";
@@ -342,7 +345,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.24
+This file was generated by Devel::Cover Version 0.25
Devel::Cover is copyright 2001-2003, Paul Johnson (pjcj@cpan.org)
@@ -393,7 +396,8 @@ $Templates{summary} = <<'EOT';
</td>
[% FOREACH criterion = headers %]
- <td class="[%- vals.$module.$criterion.class -%]">
+ <td class="[%- vals.$module.$criterion.class -%]"
+ title="[%- vals.$module.$criterion.details -%]">
[% vals.$module.$criterion.pc %]
</td>
[% END %]
@@ -450,7 +454,7 @@ The following exit values are returned:
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
View
@@ -12,11 +12,11 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use blib;
-use Devel::Cover::Test 0.24;
+use Devel::Cover::Test 0.25;
my @tests = @ARGV;
View
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
-use Devel::Cover::DB 0.24;
+use Devel::Cover::DB 0.25;
use Getopt::Long;
use Pod::Usage;
@@ -128,7 +128,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
View
@@ -11,12 +11,12 @@ use strict;
use warnings;
our @ISA = qw( DynaLoader );
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use DynaLoader ();
-use Devel::Cover::DB 0.24;
-use Devel::Cover::Inc 0.24;
+use Devel::Cover::DB 0.25;
+use Devel::Cover::Inc 0.25;
use B qw( class ppname main_cv main_start main_root walksymtable OPf_KIDS );
use B::Debug;
@@ -144,6 +144,7 @@ sub import
$Dir = Cwd::getcwd()
}
+ mkdir $DB unless -d $DB; # Nasty hack to keep 5.6.1 happy.
$DB = Cwd::abs_path($DB);
if ($blib)
@@ -783,7 +784,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Branch;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use base "Devel::Cover::Criterion";
@@ -76,7 +76,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use base "Devel::Cover::Criterion";
@@ -80,7 +80,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_and_3;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_2;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_3;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_xor_4;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use base "Devel::Cover::Condition";
@@ -45,7 +45,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,18 +10,18 @@ package Devel::Cover::Criterion;
use strict;
use warnings;
-our $VERSION = "0.24";
-
-use Devel::Cover::Statement 0.24;
-use Devel::Cover::Branch 0.24;
-use Devel::Cover::Condition 0.24;
-use Devel::Cover::Condition_or_2 0.24;
-use Devel::Cover::Condition_or_3 0.24;
-use Devel::Cover::Condition_and_3 0.24;
-use Devel::Cover::Condition_xor_4 0.24;
-use Devel::Cover::Subroutine 0.24;
-use Devel::Cover::Time 0.24;
-use Devel::Cover::Pod 0.24;
+our $VERSION = "0.25";
+
+use Devel::Cover::Statement 0.25;
+use Devel::Cover::Branch 0.25;
+use Devel::Cover::Condition 0.25;
+use Devel::Cover::Condition_or_2 0.25;
+use Devel::Cover::Condition_or_3 0.25;
+use Devel::Cover::Condition_and_3 0.25;
+use Devel::Cover::Condition_xor_4 0.25;
+use Devel::Cover::Subroutine 0.25;
+use Devel::Cover::Time 0.25;
+use Devel::Cover::Pod 0.25;
sub new
{
@@ -79,7 +79,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,10 +10,10 @@ package Devel::Cover::DB;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
-use Devel::Cover::DB::File 0.24;
-use Devel::Cover::Criterion 0.24;
+use Devel::Cover::DB::File 0.25;
+use Devel::Cover::Criterion 0.25;
use Carp;
use Data::Dumper;
@@ -561,7 +561,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,9 +10,9 @@ package Devel::Cover::DB::File;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
-use Devel::Cover::Criterion 0.24;
+use Devel::Cover::Criterion 0.25;
sub calculate_summary
{
@@ -78,7 +78,7 @@ Huh?
=head1 VERSION
-Version 0.24 - 10th October 2003
+Version 0.25 - 10th October 2003
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Op;
use strict;
use warnings;
-our $VERSION = "0.24";
+our $VERSION = "0.25";
use Devel::Cover qw( -ignore blib -ignore \\wB\\w -indent 1 );
use B::Concise qw( set_style add_callback );
Oops, something went wrong.

0 comments on commit ebc643f

Please sign in to comment.