Permalink
Browse files

import Devel::Cover 0.13

  • Loading branch information...
pjcj committed Nov 3, 2004
1 parent b6b6594 commit f125fb8811d0e3a68253c405855d4451ded9e99a
Showing with 48 additions and 45 deletions.
  1. +3 −0 CHANGES
  2. +4 −4 Cover.pm
  3. +2 −2 Cover/Condition.pm
  4. +2 −2 Cover/Criterion.pm
  5. +8 −8 Cover/DB.pm
  6. +7 −7 Cover/DB/File.pm
  7. +1 −1 Cover/Op.pm
  8. +3 −3 Cover/Pod.pm
  9. +2 −2 Cover/Statement.pm
  10. +2 −2 Cover/Time.pm
  11. +1 −1 Cover/Tutorial.pod
  12. +1 −1 Makefile.PL
  13. +7 −7 cover
  14. +1 −1 t/Compare.pm
  15. +2 −2 t/t1.t
  16. +2 −2 t/t2.t
View
@@ -58,3 +58,6 @@ Release 0.12 - 14th October 2001
Devel::Cover::DB::File.pm
Devel::Cover::Time.pm
- Abstract summary and percentage calculations to appropriate classes.
+
+Release 0.13 - 14th October 2001
+ - Forgot to allow for lack of Pod::Coverage in Devel::Cover::Pod.pm.
View
@@ -12,11 +12,11 @@ use warnings;
use DynaLoader ();
-use Devel::Cover::DB 0.12;
-use Devel::Cover::Inc 0.12;
+use Devel::Cover::DB 0.13;
+use Devel::Cover::Inc 0.13;
our @ISA = qw( DynaLoader );
-our $VERSION = "0.12";
+our $VERSION = "0.13";
use B qw( class ppname main_root main_start main_cv svref_2object OPf_KIDS );
use B::Debug;
@@ -440,7 +440,7 @@ Huh?
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -12,7 +12,7 @@ use warnings;
use base "Devel::Cover::Criterion";
-our $VERSION = "0.12";
+our $VERSION = "0.13";
sub covered { scalar grep $_, @{$_[0]} }
sub total { scalar @{$_[0]} }
@@ -77,7 +77,7 @@ Huh?
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -10,7 +10,7 @@ package Devel::Cover::Criterion;
use strict;
use warnings;
-our $VERSION = "0.12";
+our $VERSION = "0.13";
sub new
{
@@ -66,7 +66,7 @@ Huh?
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -10,18 +10,18 @@ package Devel::Cover::DB;
use strict;
use warnings;
-use Devel::Cover::DB::File 0.12;
-use Devel::Cover::Criterion 0.12;
-use Devel::Cover::Statement 0.12;
-use Devel::Cover::Condition 0.12;
-use Devel::Cover::Pod 0.12;
-use Devel::Cover::Time 0.12;
+use Devel::Cover::DB::File 0.13;
+use Devel::Cover::Criterion 0.13;
+use Devel::Cover::Statement 0.13;
+use Devel::Cover::Condition 0.13;
+use Devel::Cover::Pod 0.13;
+use Devel::Cover::Time 0.13;
use Carp;
use Data::Dumper;
use File::Path;
-our $VERSION = "0.12";
+our $VERSION = "0.13";
my $DB = "cover.2"; # Version 2 of the database.
@@ -478,7 +478,7 @@ Huh?
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -10,13 +10,13 @@ package Devel::Cover::DB::File;
use strict;
use warnings;
-use Devel::Cover::Criterion 0.12;
-use Devel::Cover::Statement 0.12;
-use Devel::Cover::Condition 0.12;
-use Devel::Cover::Pod 0.12;
-use Devel::Cover::Time 0.12;
+use Devel::Cover::Criterion 0.13;
+use Devel::Cover::Statement 0.13;
+use Devel::Cover::Condition 0.13;
+use Devel::Cover::Pod 0.13;
+use Devel::Cover::Time 0.13;
-our $VERSION = "0.12";
+our $VERSION = "0.13";
sub calculate_summary
{
@@ -84,7 +84,7 @@ Huh?
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -10,7 +10,7 @@ package Devel::Cover::Op;
use strict;
use warnings;
-our $VERSION = "0.12";
+our $VERSION = "0.13";
use Devel::Cover qw( -inc B -indent 1 -details 1 );
use B::Concise qw( set_style add_callback );
View
@@ -12,9 +12,9 @@ use warnings;
use base "Devel::Cover::Criterion";
-use Pod::Coverage;
+BEGIN { eval "use Pod::Coverage 0.06" } # We'll use this if it is available.
-our $VERSION = "0.12";
+our $VERSION = "0.13";
sub covered { $_[0]->[0] ? 1 : 0 }
sub total { 1 }
@@ -78,7 +78,7 @@ Huh?
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -12,7 +12,7 @@ use warnings;
use base "Devel::Cover::Criterion";
-our $VERSION = "0.12";
+our $VERSION = "0.13";
sub covered { $_[0]->[0] }
sub total { 1 }
@@ -74,7 +74,7 @@ Huh?
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -12,7 +12,7 @@ use warnings;
use base "Devel::Cover::Criterion";
-our $VERSION = "0.12";
+our $VERSION = "0.13";
sub covered { $_[0]->[0] }
sub total { 1 }
@@ -69,7 +69,7 @@ Huh?
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -163,7 +163,7 @@ basis for future research.
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -16,7 +16,7 @@ use ExtUtils::MakeMaker;
$| = 1;
-my $Version = "0.12";
+my $Version = "0.13";
my $Date = "14th October 2001";
my $Author = 'pjcj@cpan.org';
View
14 cover
@@ -12,13 +12,13 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.12";
+our $VERSION = "0.13";
-use Devel::Cover::DB 0.12;
-use Devel::Cover::Statement 0.12;
-use Devel::Cover::Condition 0.12;
-use Devel::Cover::Pod 0.12;
-use Devel::Cover::Time 0.12;
+use Devel::Cover::DB 0.13;
+use Devel::Cover::Statement 0.13;
+use Devel::Cover::Condition 0.13;
+use Devel::Cover::Pod 0.13;
+use Devel::Cover::Time 0.13;
use Getopt::Long;
BEGIN { eval "use Pod::Coverage" } # We'll use this if it is available.
@@ -329,7 +329,7 @@ Huh?
=head1 VERSION
-Version 0.12 - 14th October 2001
+Version 0.13 - 14th October 2001
=head1 LICENCE
View
@@ -10,7 +10,7 @@ package Compare;
use strict;
use warnings;
-our $VERSION = "0.12";
+our $VERSION = "0.13";
sub compare
{
View
4 t/t1.t
@@ -10,8 +10,8 @@
use strict;
use warnings;
-use Devel::Cover::DB 0.12;
-use Devel::Cover 0.12 qw( -db t1 -select T1 -indent 1 -merge 0 );
+use Devel::Cover::DB 0.13;
+use Devel::Cover 0.13 qw( -db t1 -select T1 -indent 1 -merge 0 );
use Test;
View
4 t/t2.t
@@ -10,8 +10,8 @@
use strict;
use warnings;
-use Devel::Cover::DB 0.12;
-use Devel::Cover 0.12 qw( -db t2 +inc blib -indent 1 -merge 0 );
+use Devel::Cover::DB 0.13;
+use Devel::Cover 0.13 qw( -db t2 +inc blib -indent 1 -merge 0 );
use Test;

0 comments on commit f125fb8

Please sign in to comment.