Permalink
Browse files

import Devel::Cover 0.09

  • Loading branch information...
1 parent 2717da1 commit 6649f9f26d63244dd09cdeb1e95da91058622498 @pjcj committed Nov 3, 2004
Showing with 25 additions and 19 deletions.
  1. +3 −0 CHANGES
  2. +4 −4 Cover.pm
  3. +9 −6 Cover/DB.pm
  4. +1 −1 Cover/Op.pm
  5. +2 −2 Makefile.PL
  6. +1 −1 cover
  7. +1 −1 t/Compare.pm
  8. +2 −2 t/t1.t
  9. +2 −2 t/t2.t
View
@@ -34,3 +34,6 @@ Release 0.08 - 18th August 2001
- Provide better handling of files to report on or ignore.
Makefile.PL generates Inc.pm containing default @INC.
added +inc, -ignore and -select.
+
+Release 0.09 - 18th August 2001
+ - Beef up Devel::Cover::DB.
View
@@ -12,11 +12,11 @@ use warnings;
use DynaLoader ();
-use Devel::Cover::DB 0.08;
-use Devel::Cover::Inc 0.08;
+use Devel::Cover::DB 0.09;
+use Devel::Cover::Inc 0.09;
our @ISA = qw( DynaLoader );
-our $VERSION = "0.08";
+our $VERSION = "0.09";
use B qw( class ppname main_root main_start main_cv svref_2object OPf_KIDS );
# use B::Debug;
@@ -535,7 +535,7 @@ Huh?
=head1 VERSION
-Version 0.08 - 18th May 2001
+Version 0.09 - 18th August 2001
=head1 LICENCE
View
@@ -14,7 +14,7 @@ use Carp;
use Data::Dumper;
use File::Path;
-our $VERSION = "0.08";
+our $VERSION = "0.09";
my $DB = "cover.1"; # Version 1 of the database.
@@ -272,7 +272,7 @@ sub print_details_hash
my $lines = $self->{cover}{$file}{statement};
my $fmt = "%-5d: %6s %s\n";
- open F, $file or croak "Unable to open $file: $!";
+ open F, $file or carp("Unable to open $file: $!"), next;
while (<F>)
{
@@ -311,7 +311,10 @@ sub cover
}
}
}
+ }
+ unless (exists &Devel::Cover::DB::Base::items)
+ {
*Devel::Cover::DB::Base::items = sub
{
my $self = shift;
@@ -338,8 +341,8 @@ sub cover
my $c = "Devel::Cover::DB::$class";
no strict "refs";
@{"${c}::ISA"} = $base;
- *{"${c}::$functions->[0]"} = *{"${base}::items"};
- *{"${c}::$functions->[1]"} = *{"${base}::get"};
+ *{"${c}::$functions->[0]"} = \&{"${base}::items"};
+ *{"${c}::$functions->[1]"} = \&{"${base}::get"};
}
*Devel::Cover::DB::File::DESTROY = sub {};
@@ -376,7 +379,7 @@ sub print_details
my $statement = $f->statement;
my $fmt = "%-5d: %6s %s\n";
- open F, $file or croak "Unable to open $file: $!";
+ open F, $file or carp("Unable to open $file: $!"), next;
while (<F>)
{
@@ -469,7 +472,7 @@ Huh?
=head1 VERSION
-Version 0.08 - 18th May 2001
+Version 0.09 - 18th August 2001
=head1 LICENCE
View
@@ -10,7 +10,7 @@ package Devel::Cover::Op;
use strict;
use warnings;
-our $VERSION = "0.08";
+our $VERSION = "0.09";
use Devel::Cover qw( -inc B -indent 1 -details 1 );
use B::Concise qw( set_style add_callback );
View
@@ -16,8 +16,8 @@ use ExtUtils::MakeMaker;
$| = 1;
-my $Version = "0.08";
-my $Date = "18th May 2001";
+my $Version = "0.09";
+my $Date = "18th August 2001";
my $Author = 'pjcj@cpan.org';
my @perlbug = ("perlbug", "-a", $Author,
View
2 cover
@@ -12,7 +12,7 @@ require 5.6.1;
use strict;
use warnings;
-use Devel::Cover::DB 0.08;
+use Devel::Cover::DB 0.09;
my $db = Devel::Cover::DB->new(db => shift);
$db->print_summary;
View
@@ -10,7 +10,7 @@ package Compare;
use strict;
use warnings;
-our $VERSION = "0.08";
+our $VERSION = "0.09";
sub compare
{
View
4 t/t1.t
@@ -10,8 +10,8 @@
use strict;
use warnings;
-use Devel::Cover::DB 0.08;
-use Devel::Cover 0.08 qw( -db t1 -select T1 -indent 1 -merge 0 );
+use Devel::Cover::DB 0.09;
+use Devel::Cover 0.09 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.08;
-use Devel::Cover 0.08 qw( -db t2 +inc blib -indent 1 -merge 0 );
+use Devel::Cover::DB 0.09;
+use Devel::Cover 0.09 qw( -db t2 +inc blib -indent 1 -merge 0 );
use Test;

0 comments on commit 6649f9f

Please sign in to comment.