Permalink
Browse files

import Devel::Cover 0.36

  • Loading branch information...
1 parent 9f93b0b commit 614b040658d19a9d771ff47e60f3f7d4d4258e80 @pjcj committed Nov 3, 2004
View
14 CHANGES
@@ -209,7 +209,7 @@ Release 0.34 - 14th January 2004
- Fix various warnings and errors that had crept in whilst working on
dynamic subs.
-Release 0.35 -
+Release 0.35 - 8th March 2004
- Change Text2 to pick up version changes.
- Minor documentation updates.
- Minor changes to Devel::Cover::Op.
@@ -223,3 +223,15 @@ Release 0.35 -
- Add mani, all_gold and all_test Makefile targets.
- Make all_versions skip non-existent platforms.
- Add DB option to make dump target.
+ - Remove dependencies on op_seq. (I removed it from bleadperl.) Use
+ op_targ instead.
+ - Collect some metadata.
+ - Documentation updates (Andy Lester).
+ - Document the mechanism by which files are selected for coverage.
+
+Release 0.36 - 9th March 2004
+ - Add fork test.
+ - Remove debugging code from md5 test.
+ - Remove runs after merging - code was commented out for debugging.
+ - Don't merge runs during coverage collection.
+ - Delete database at start if not merging to cope with forking.
View
@@ -46,6 +46,7 @@ tests/cond_xor
tests/destroy
tests/dynamic_subs
tests/eval1
+tests/fork
tests/if
tests/module1
tests/module2
@@ -80,6 +81,7 @@ test_output/cover/dynamic_subs.5.006001
test_output/cover/dynamic_subs.5.008001
test_output/cover/dynamic_subs.5.009
test_output/cover/eval1.5.006001
+test_output/cover/fork.5.006001
test_output/cover/if.5.006001
test_output/cover/module1.5.006001
test_output/cover/module1.5.008001
View
@@ -1,12 +1,12 @@
# 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.35
+version: 0.36
version_from:
installdirs: site
requires:
Digest::MD5: 0
Storable: 0
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.21_01
View
@@ -19,8 +19,8 @@ use File::Copy;
$| = 1;
-my $Version = "0.35";
-my $Date = "8th March 2004";
+my $Version = "0.36";
+my $Date = "9th March 2004";
my $Author = 'pjcj@cpan.org';
my @perlbug = ("perlbug", "-a", $Author,
View
6 cover
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
+use Devel::Cover::DB 0.36;
use Cwd "abs_path";
use Data::Dumper;
@@ -259,7 +259,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
+use Devel::Cover::DB 0.36;
use Cwd ();
use File::Find ();
@@ -314,7 +314,7 @@ package Devel::Cover::Cpancover::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Template::Provider";
@@ -350,7 +350,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.35
+This file was generated by Devel::Cover Version 0.36
Devel::Cover is copyright 2001-2004, Paul Johnson (pjcj@cpan.org)
@@ -459,7 +459,7 @@ The following exit values are returned:
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
@@ -12,11 +12,11 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use blib;
-use Devel::Cover::Test 0.35;
+use Devel::Cover::Test 0.36;
my @tests = @ARGV;
View
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
-use Devel::Cover::DB 0.35;
+use Devel::Cover::DB 0.36;
use Getopt::Long;
use Pod::Usage;
@@ -128,7 +128,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
View
@@ -10,13 +10,13 @@ package Devel::Cover;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use DynaLoader ();
our @ISA = qw( DynaLoader );
-use Devel::Cover::DB 0.35;
-use Devel::Cover::Inc 0.35;
+use Devel::Cover::DB 0.36;
+use Devel::Cover::Inc 0.36;
use B qw( class ppname main_cv main_start main_root walksymtable OPf_KIDS );
use B::Debug;
@@ -111,6 +111,7 @@ EOM
"Ignoring packages matching:", join("\n ", "", @Ignore), "\n",
"Ignoring packages in:", join("\n ", "", @Inc), "\n"
unless $Silent;
+
$Meta{run} = $0;
$Meta{start} = get_elapsed();
}
@@ -161,6 +162,7 @@ sub import
mkdir $DB unless -d $DB; # Nasty hack to keep 5.6.1 happy.
$DB = $1 if Cwd::abs_path($DB) =~ /(.*)/;
+ Devel::Cover::DB->delete($DB) unless $Merge;
if ($blib)
{
@@ -411,15 +413,6 @@ sub report
meta => { $Meta{run} => \%Meta }
);
- my $existing;
- eval
- {
- $existing = Devel::Cover::DB->new(db => $DB) if $Merge;
- $cover->merge($existing);
- };
-
- Devel::Cover::DB->delete($DB) unless $Merge;
-
$DB .= "/runs";
mkdir $DB unless -d $DB;
$DB .= "/" . time . ".$$." . sprintf "%05d", rand 2 ** 16;
@@ -940,7 +933,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Branch;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Criterion";
@@ -76,7 +76,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Criterion";
@@ -80,7 +80,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_and_3;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_2;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_3;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_xor_4;
use strict;
use warnings;
-our $VERSION = "0.35";
+our $VERSION = "0.36";
use base "Devel::Cover::Condition";
@@ -45,7 +45,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
@@ -10,18 +10,18 @@ package Devel::Cover::Criterion;
use strict;
use warnings;
-our $VERSION = "0.35";
-
-use Devel::Cover::Statement 0.35;
-use Devel::Cover::Branch 0.35;
-use Devel::Cover::Condition 0.35;
-use Devel::Cover::Condition_or_2 0.35;
-use Devel::Cover::Condition_or_3 0.35;
-use Devel::Cover::Condition_and_3 0.35;
-use Devel::Cover::Condition_xor_4 0.35;
-use Devel::Cover::Subroutine 0.35;
-use Devel::Cover::Time 0.35;
-use Devel::Cover::Pod 0.35;
+our $VERSION = "0.36";
+
+use Devel::Cover::Statement 0.36;
+use Devel::Cover::Branch 0.36;
+use Devel::Cover::Condition 0.36;
+use Devel::Cover::Condition_or_2 0.36;
+use Devel::Cover::Condition_or_3 0.36;
+use Devel::Cover::Condition_and_3 0.36;
+use Devel::Cover::Condition_xor_4 0.36;
+use Devel::Cover::Subroutine 0.36;
+use Devel::Cover::Time 0.36;
+use Devel::Cover::Pod 0.36;
sub new
{
@@ -79,7 +79,7 @@ Huh?
=head1 VERSION
-Version 0.35 - 8th March 2004
+Version 0.36 - 9th March 2004
=head1 LICENCE
Oops, something went wrong.

0 comments on commit 614b040

Please sign in to comment.