Permalink
Browse files

import Devel::Cover 0.37

  • Loading branch information...
1 parent 614b040 commit 97a1cccf850a8c2b3ff051ff982b2bc44bcb96c5 @pjcj committed Nov 3, 2004
View
@@ -235,3 +235,7 @@ Release 0.36 - 9th March 2004
- 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.
+
+Release 0.37 - 10th March 2004
+ - Fix up pod test golden results.
+ - Add limitation documentation (Michael Carman).
View
@@ -93,11 +93,6 @@ test_output/cover/module_import.5.008001
test_output/cover/module_no_inc.5.006001
test_output/cover/overloaded.5.006001
test_output/cover/pod.5.006001
-test_output/cover/pod.5.006002
-test_output/cover/pod.5.008
-test_output/cover/pod.5.008003
-test_output/cover/pod.5.009
-test_output/cover/pod.5.009001
test_output/cover/skip.5.006001
test_output/cover/special_blocks.5.006001
test_output/cover/statement.5.006001
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.36
+version: 0.37
version_from:
installdirs: site
requires:
Digest::MD5: 0
Storable: 0
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.21_01
+generated_by: ExtUtils::MakeMaker version 6.17
View
@@ -19,8 +19,8 @@ use File::Copy;
$| = 1;
-my $Version = "0.36";
-my $Date = "9th March 2004";
+my $Version = "0.37";
+my $Date = "10th 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.36";
+our $VERSION = "0.37";
-use Devel::Cover::DB 0.36;
+use Devel::Cover::DB 0.37;
use Cwd "abs_path";
use Data::Dumper;
@@ -259,7 +259,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
View
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
-use Devel::Cover::DB 0.36;
+use Devel::Cover::DB 0.37;
use Cwd ();
use File::Find ();
@@ -314,7 +314,7 @@ package Devel::Cover::Cpancover::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
use base "Template::Provider";
@@ -350,7 +350,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.36
+This file was generated by Devel::Cover Version 0.37
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.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
View
@@ -12,11 +12,11 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
use blib;
-use Devel::Cover::Test 0.36;
+use Devel::Cover::Test 0.37;
my @tests = @ARGV;
View
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
-use Devel::Cover::DB 0.36;
+use Devel::Cover::DB 0.37;
use Getopt::Long;
use Pod::Usage;
@@ -128,7 +128,7 @@ Huh?
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
View
@@ -10,13 +10,13 @@ package Devel::Cover;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
use DynaLoader ();
our @ISA = qw( DynaLoader );
-use Devel::Cover::DB 0.36;
-use Devel::Cover::Inc 0.36;
+use Devel::Cover::DB 0.37;
+use Devel::Cover::Inc 0.37;
use B qw( class ppname main_cv main_start main_root walksymtable OPf_KIDS );
use B::Debug;
@@ -910,7 +910,6 @@ to them using +inc.
Otherwise the file is selected.
-
=head1 ACKNOWLEDGEMENTS
Some code and ideas cribbed from:
@@ -925,6 +924,58 @@ Some code and ideas cribbed from:
B
Pod::Coverage
+=head1 LIMITATIONS
+
+There are things that Devel::Cover can't cover.
+
+=head2 Absence of shared dependencies
+
+Perl keeps track of which modules have been loaded (to avoid reloading
+them). Because of this, it isn't possible to get coverage for a path
+where a runtime import fails if the module being imported is one that
+Devel::Cover uses internally. For example, suppose your program has
+this function:
+
+ sub foo {
+ eval { require Storable };
+ if ($@) {
+ carp "Can't find Storable";
+ return;
+ }
+ # ...
+ }
+
+You might write a test for the failure mode as
+
+ BEGIN { @INC = () }
+ foo();
+ # check for error message
+
+Because Devel::Cover uses Storable internally, the import will succeed
+(and the test will fail) under a coverage run.
+
+Modules used by Devel::Cover while gathering coverage:
+
+=over 4
+
+=item * B
+
+=item * B::Debug
+
+=item * B::Deparse
+
+=item * Carp
+
+=item * Cwd
+
+=item * Digest::MD5
+
+=item * File::Path
+
+=item * Storable
+
+=back
+
=head1 BUGS
Did I mention that this is alpha code?
@@ -933,7 +984,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Branch;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
use base "Devel::Cover::Criterion";
@@ -76,7 +76,7 @@ Huh?
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
use base "Devel::Cover::Criterion";
@@ -80,7 +80,7 @@ Huh?
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_and_3;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_2;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_3;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_xor_4;
use strict;
use warnings;
-our $VERSION = "0.36";
+our $VERSION = "0.37";
use base "Devel::Cover::Condition";
@@ -45,7 +45,7 @@ Huh?
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
@@ -10,18 +10,18 @@ package Devel::Cover::Criterion;
use strict;
use warnings;
-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;
+our $VERSION = "0.37";
+
+use Devel::Cover::Statement 0.37;
+use Devel::Cover::Branch 0.37;
+use Devel::Cover::Condition 0.37;
+use Devel::Cover::Condition_or_2 0.37;
+use Devel::Cover::Condition_or_3 0.37;
+use Devel::Cover::Condition_and_3 0.37;
+use Devel::Cover::Condition_xor_4 0.37;
+use Devel::Cover::Subroutine 0.37;
+use Devel::Cover::Time 0.37;
+use Devel::Cover::Pod 0.37;
sub new
{
@@ -79,7 +79,7 @@ Huh?
=head1 VERSION
-Version 0.36 - 9th March 2004
+Version 0.37 - 10th March 2004
=head1 LICENCE
Oops, something went wrong.

0 comments on commit 97a1ccc

Please sign in to comment.