Permalink
Browse files

Fix up some debugging output.

  • Loading branch information...
1 parent a0232ff commit b76747e63892d360807962461c1ece7bb4d74e2f @pjcj committed Aug 3, 2012
Showing with 4 additions and 2 deletions.
  1. +3 −1 lib/Devel/Cover.pm
  2. +1 −1 lib/Devel/Cover/DB/Structure.pm
View
@@ -384,6 +384,7 @@ sub import
delete $Coverage{$_} unless length;
}
%Coverage = (all => 1) unless keys %Coverage;
+ # print STDERR "Coverage: ", Dumper \%Coverage;
%Coverage_options = %Coverage;
$Initialised = 1;
@@ -519,7 +520,7 @@ sub get_location
$File = $op->file;
$Line = $op->line;
- # warn "${File}::$Line\n";
+ # print STDERR "$File:$Line\n";
# If there's an eval, get the real filename. Enabled from $^P & 0x100.
while ($File =~ /^\(eval \d+\)\[(.*):(\d+)\]/) {
@@ -842,6 +843,7 @@ sub add_statement_cover
my $key = get_key($op);
my $val = $Coverage->{statement}{$key} || 0;
my ($n, $new) = $Structure->add_count("statement");
+ # print STDERR "Stmt $File:$Line - $n, $new\n";
$Structure->add_statement($File, $Line) if $new;
$Run{count}{$File}{statement}[$n] += $val;
my $vec = $Run{vec}{$File}{statement};
@@ -188,7 +188,7 @@ sub store_counts
$self->{f}{$file}{start}{-1}{__COVER__}[0]{$_} =
$self->get_count($_)
for $self->criteria;
- # print STDERR Dumper $self->{f}{$file}{start};
+ # print STDERR "store_counts: ", Dumper $self->{f}{$file}{start};
}
sub reuse

0 comments on commit b76747e

Please sign in to comment.