Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

import Devel::Cover 0.31

  • Loading branch information...
commit 79e56223be03591b927b8421682aee6ee114a941 1 parent bf1430b
@pjcj authored
Showing with 92 additions and 89 deletions.
  1. +3 −0  CHANGES
  2. +1 −1  Cover.xs
  3. +1 −1  META.yml
  4. +1 −1  Makefile.PL
  5. +3 −3 cover
  6. +5 −5 cpancover
  7. +2 −2 create_gold
  8. +3 −3 gcov2perl
  9. +4 −4 lib/Devel/Cover.pm
  10. +2 −2 lib/Devel/Cover/Branch.pm
  11. +2 −2 lib/Devel/Cover/Condition.pm
  12. +2 −2 lib/Devel/Cover/Condition_and_3.pm
  13. +2 −2 lib/Devel/Cover/Condition_or_2.pm
  14. +2 −2 lib/Devel/Cover/Condition_or_3.pm
  15. +2 −2 lib/Devel/Cover/Condition_xor_4.pm
  16. +13 −13 lib/Devel/Cover/Criterion.pm
  17. +4 −4 lib/Devel/Cover/DB.pm
  18. +3 −3 lib/Devel/Cover/DB/File.pm
  19. +1 −1  lib/Devel/Cover/Op.pm
  20. +2 −2 lib/Devel/Cover/Pod.pm
  21. +2 −2 lib/Devel/Cover/Report/Html.pm
  22. +5 −5 lib/Devel/Cover/Report/Html_basic.pm
  23. +5 −5 lib/Devel/Cover/Report/Html_minimal.pm
  24. +6 −6 lib/Devel/Cover/Report/Html_subtle.pm
  25. +3 −3 lib/Devel/Cover/Report/Text.pm
  26. +2 −2 lib/Devel/Cover/Report/Text2.pm
  27. +2 −2 lib/Devel/Cover/Statement.pm
  28. +2 −2 lib/Devel/Cover/Subroutine.pm
  29. +2 −2 lib/Devel/Cover/Test.pm
  30. +2 −2 lib/Devel/Cover/Time.pm
  31. +2 −2 lib/Devel/Cover/Truth_Table.pm
  32. +1 −1  lib/Devel/Cover/Tutorial.pod
View
3  CHANGES
@@ -180,3 +180,6 @@ Release 0.29 - 19th December 2003
Release 0.30 - 22nd December 2003
- Get things working under Windows.
+
+Release 0.31 - 22nd December 2003
+ - Remove debugging output. Hmmm.
View
2  Cover.xs
@@ -447,7 +447,7 @@ static void cover_time()
cpu();
#endif
sv_setnv(*count, c);
- PDEB(D(L, "Adding time: sum %f at %p\n", c, Profiling_op));
+ NDEB(D(L, "Adding time: sum %f at %p\n", c, Profiling_op));
}
Profiling_op = PL_op;
}
View
2  META.yml
@@ -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.30
+version: 0.31
version_from:
installdirs: site
requires:
View
2  Makefile.PL
@@ -19,7 +19,7 @@ use ExtUtils::Manifest "maniread";
$| = 1;
-my $Version = "0.30";
+my $Version = "0.31";
my $Date = "22nd December 2003";
my $Author = 'pjcj@cpan.org';
View
6 cover
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
-use Devel::Cover::DB 0.30;
+use Devel::Cover::DB 0.31;
use Cwd "abs_path";
use Data::Dumper;
@@ -250,7 +250,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
10 cpancover
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
-use Devel::Cover::DB 0.30;
+use Devel::Cover::DB 0.31;
use Cwd ();
use File::Find ();
@@ -314,7 +314,7 @@ package Devel::Cover::Cpancover::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Template::Provider";
@@ -350,7 +350,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.30
+This file was generated by Devel::Cover Version 0.31
Devel::Cover is copyright 2001-2003, Paul Johnson (pjcj@cpan.org)
@@ -459,7 +459,7 @@ The following exit values are returned:
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 create_gold
@@ -12,11 +12,11 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use blib;
-use Devel::Cover::Test 0.30;
+use Devel::Cover::Test 0.31;
my @tests = @ARGV;
View
6 gcov2perl
@@ -12,9 +12,9 @@ require 5.6.1;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
-use Devel::Cover::DB 0.30;
+use Devel::Cover::DB 0.31;
use Getopt::Long;
use Pod::Usage;
@@ -128,7 +128,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
8 lib/Devel/Cover.pm
@@ -10,13 +10,13 @@ package Devel::Cover;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use DynaLoader ();
our @ISA = qw( DynaLoader );
-use Devel::Cover::DB 0.30;
-use Devel::Cover::Inc 0.30;
+use Devel::Cover::DB 0.31;
+use Devel::Cover::Inc 0.31;
use B qw( class ppname main_cv main_start main_root walksymtable OPf_KIDS );
use B::Debug;
@@ -845,7 +845,7 @@ See the BUGS file.
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Branch.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Branch;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Criterion";
@@ -76,7 +76,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Criterion";
@@ -80,7 +80,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_and_3.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_and_3;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_or_2.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_2;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_or_3.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_or_3;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Condition";
@@ -46,7 +46,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Condition_xor_4.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Condition_xor_4;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Condition";
@@ -45,7 +45,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
26 lib/Devel/Cover/Criterion.pm
@@ -10,18 +10,18 @@ package Devel::Cover::Criterion;
use strict;
use warnings;
-our $VERSION = "0.30";
-
-use Devel::Cover::Statement 0.30;
-use Devel::Cover::Branch 0.30;
-use Devel::Cover::Condition 0.30;
-use Devel::Cover::Condition_or_2 0.30;
-use Devel::Cover::Condition_or_3 0.30;
-use Devel::Cover::Condition_and_3 0.30;
-use Devel::Cover::Condition_xor_4 0.30;
-use Devel::Cover::Subroutine 0.30;
-use Devel::Cover::Time 0.30;
-use Devel::Cover::Pod 0.30;
+our $VERSION = "0.31";
+
+use Devel::Cover::Statement 0.31;
+use Devel::Cover::Branch 0.31;
+use Devel::Cover::Condition 0.31;
+use Devel::Cover::Condition_or_2 0.31;
+use Devel::Cover::Condition_or_3 0.31;
+use Devel::Cover::Condition_and_3 0.31;
+use Devel::Cover::Condition_xor_4 0.31;
+use Devel::Cover::Subroutine 0.31;
+use Devel::Cover::Time 0.31;
+use Devel::Cover::Pod 0.31;
sub new
{
@@ -79,7 +79,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
8 lib/Devel/Cover/DB.pm
@@ -10,10 +10,10 @@ package Devel::Cover::DB;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
-use Devel::Cover::DB::File 0.30;
-use Devel::Cover::Criterion 0.30;
+use Devel::Cover::DB::File 0.31;
+use Devel::Cover::Criterion 0.31;
use Carp;
use File::Path;
@@ -580,7 +580,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
6 lib/Devel/Cover/DB/File.pm
@@ -10,9 +10,9 @@ package Devel::Cover::DB::File;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
-use Devel::Cover::Criterion 0.30;
+use Devel::Cover::Criterion 0.31;
sub calculate_summary
{
@@ -78,7 +78,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
2  lib/Devel/Cover/Op.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Op;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use Devel::Cover qw( -ignore blib -ignore \\wB\\w -indent 1 );
use B::Concise qw( set_style add_callback );
View
4 lib/Devel/Cover/Pod.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Pod;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Criterion";
@@ -72,7 +72,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Report/Html.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Report::Html;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Report::Html_minimal";
@@ -45,7 +45,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
10 lib/Devel/Cover/Report/Html_basic.pm
@@ -10,9 +10,9 @@ package Devel::Cover::Report::Html_basic;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
-use Devel::Cover::DB 0.30;
+use Devel::Cover::DB 0.31;
use Template 2.00;
@@ -278,7 +278,7 @@ package Devel::Cover::Report::Html_basic::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Template::Provider";
@@ -314,7 +314,7 @@ $Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.30
+This file was generated by Devel::Cover Version 0.31
Devel::Cover is copyright 2001-2002, Paul Johnson (pjcj@cpan.org)
@@ -533,7 +533,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
10 lib/Devel/Cover/Report/Html_minimal.pm
@@ -4,10 +4,10 @@ use strict;
use warnings;
use CGI;
use Getopt::Long;
-use Devel::Cover::DB 0.30;
-use Devel::Cover::Truth_Table 0.30;
+use Devel::Cover::DB 0.31;
+use Devel::Cover::Truth_Table 0.31;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
#-------------------------------------------------------------------------------
# Subroutine : get_coverage_for_line
@@ -255,7 +255,7 @@ sub print_html_header {
print $fh <<"END_HTML";
<!--
-This file was generated by Devel::Cover Version 0.30
+This file was generated by Devel::Cover Version 0.31
Devel::Cover is copyright 2001-2003, Paul Johnson (pjcj\@cpan.org)
Devel::Cover is free. It is licensed under the same terms as Perl itself.
The latest version of Devel::Cover should be available from my homepage:
@@ -746,7 +746,7 @@ Devel::Cover
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
12 lib/Devel/Cover/Report/Html_subtle.pm
@@ -2,10 +2,10 @@ package Devel::Cover::Report::Html_subtle;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
-use Devel::Cover::DB 0.30;
-use Devel::Cover::Truth_Table 0.30;
+use Devel::Cover::DB 0.31;
+use Devel::Cover::Truth_Table 0.31;
use Template 2.00;
use CGI;
@@ -386,7 +386,7 @@ package Devel::Cover::Report::Html_subtle::Template::Provider;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Template::Provider";
@@ -404,7 +404,7 @@ sub fetch {
$Templates{html} = <<'EOT';
<!--
-This file was generated by Devel::Cover Version 0.30
+This file was generated by Devel::Cover Version 0.31
Devel::Cover is copyright 2001-2002, Paul Johnson (pjcj@cpan.org)
@@ -734,7 +734,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
6 lib/Devel/Cover/Report/Text.pm
@@ -10,9 +10,9 @@ package Devel::Cover::Report::Text;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
-use Devel::Cover::DB 0.30;
+use Devel::Cover::DB 0.31;
sub print_file
{
@@ -263,7 +263,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Report/Text2.pm
@@ -4,7 +4,7 @@ use warnings;
our $VERSION = '0.20';
-use Devel::Cover::DB 0.30;
+use Devel::Cover::DB 0.31;
use Devel::Cover::Truth_Table;
my %format = (
@@ -191,7 +191,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Statement.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Statement;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Criterion";
@@ -68,7 +68,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Subroutine.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Subroutine;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Criterion";
@@ -69,7 +69,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Test.pm
@@ -10,14 +10,14 @@ package Devel::Cover::Test;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use Carp;
use File::Spec;
use Test;
-use Devel::Cover::Inc 0.30;
+use Devel::Cover::Inc 0.31;
sub new
{
View
4 lib/Devel/Cover/Time.pm
@@ -10,7 +10,7 @@ package Devel::Cover::Time;
use strict;
use warnings;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
use base "Devel::Cover::Criterion";
@@ -70,7 +70,7 @@ Huh?
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
View
4 lib/Devel/Cover/Truth_Table.pm
@@ -173,7 +173,7 @@ sub covered {
package Devel::Cover::Truth_Table;
use warnings;
use strict;
-our $VERSION = "0.30";
+our $VERSION = "0.31";
#-------------------------------------------------------------------------------
# Subroutine : new()
@@ -556,7 +556,7 @@ None that I'm aware of...
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENSE
View
2  lib/Devel/Cover/Tutorial.pod
@@ -163,7 +163,7 @@ basis for future research.
=head1 VERSION
-Version 0.30 - 22nd December 2003
+Version 0.31 - 22nd December 2003
=head1 LICENCE
Please sign in to comment.
Something went wrong with that request. Please try again.