Permalink
Browse files

use Devel::Cover::Dumper instead of Data::Dumper in lib/

  • Loading branch information...
dolmen committed Apr 13, 2012
1 parent b587ba8 commit 8adb9a474eaf840ce90ae571edc5928012a0eb4b
View
@@ -29,7 +29,7 @@ use Config;
use Cwd "abs_path";
use File::Spec;
-use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Sortkeys = 1;
+use Devel::Cover::Dumper;
BEGIN
{
View
@@ -20,7 +20,7 @@ use Devel::Cover::DB::IO;
use Carp;
use File::Path;
-use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Sortkeys = 1;
+use Devel::Cover::Dumper; # For debugging
my $DB = "cover.13"; # Version 13 of the database.
@@ -14,7 +14,7 @@ use warnings;
use Devel::Cover::Criterion;
-use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Sortkeys = 1;
+use Devel::Cover::Dumper;
sub calculate_summary
{
@@ -15,8 +15,7 @@ use Digest::MD5;
use Devel::Cover::DB;
use Devel::Cover::DB::IO;
-
-use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Sortkeys = 1;
+use Devel::Cover::Dumper;
# For comprehensive debug logging.
use constant DEBUG => 0;
View
@@ -14,7 +14,7 @@ use warnings;
# VERSION
-use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Sortkeys = 1;
+use Devel::Cover::Dumper;
use Devel::Cover qw( -ignore blib -ignore \\wB\\w );
use B::Concise qw( set_style add_callback );
@@ -325,7 +325,7 @@ sub print_conditions
types => \@types,
};
- # use Data::Dumper; print Dumper \@types;
+ # use Devel::Cover::Dumper; print Dumper \@types;
my $html = "$R{options}{outputdir}/$R{filenames}{$R{file}}--condition.html";
$Template->process("conditions", $vars, $html) or die $Template->error();
@@ -214,7 +214,7 @@ sub _branch_report {
#-------------------------------------------------------------------------------
sub _condition_report {
my $coverage = shift;
- # use Data::Dumper; print STDERR Dumper $coverage;
+ # use Devel::Cover::Dumper; print STDERR Dumper $coverage;
my @tables = truth_table(@{$coverage->{condition}});
return unless @tables;
@@ -19,19 +19,19 @@ sub print_sort
my ($db, $options) = @_;
my %runs;
my @collected = grep $_ ne "time", @{$options->{coverage}};
- # use Data::Dumper; print Dumper [$db->runs];
+ # use Devel::Cover::Dumper; print Dumper [$db->runs];
for my $r (sort {$a->{start} <=> $b->{start}} $db->runs)
{
print "Run: ", $r->run, "\n";
print "Perl version: ", $r->perl, "\n";
print "OS: ", $r->OS, "\n";
print "Start: ", scalar gmtime $r->start / 1e6, "\n";
print "Finish: ", scalar gmtime $r->finish / 1e6, "\n";
- # use Data::Dumper; print Dumper $r;
+ # use Devel::Cover::Dumper; print Dumper $r;
@{$runs{$r->run}}{"vec", "size"} = ("", 0);
my $run = $runs{$r->run};
- # use Data::Dumper; print Dumper $run;
+ # use Devel::Cover::Dumper; print Dumper $run;
my $vec = $r->vec;
for my $file (@{$options->{file}})
{
@@ -25,7 +25,7 @@ sub print_runs
print "Start: ", scalar gmtime $r->start / 1e6, "\n";
print "Finish: ", scalar gmtime $r->finish / 1e6, "\n";
print "\n";
- # use Data::Dumper; print Dumper $r;
+ # use Devel::Cover::Dumper; print Dumper $r;
}
}
View
@@ -294,7 +294,7 @@ sub run_cover
}
};
- # use Data::Dumper; print STDERR "--->", Dumper $self->{changes};
+ # use Devel::Cover::Dumper; print STDERR "--->", Dumper $self->{changes};
open T, "$cover_com 2>&1 |" or die "Cannot run $cover_com: $!";
while (!eof T)
{
@@ -355,7 +355,7 @@ sub create_gold
unlink $new_gold;
}
- # use Data::Dumper; print STDERR Dumper $self;
+ # use Devel::Cover::Dumper; print STDERR Dumper $self;
if ($self->{skip})
{
print STDERR "Skipping: $self->{skip}\n";
@@ -124,7 +124,7 @@ sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my @args = @_;
- # use Data::Dumper; print Dumper \@args;
+ # use Devel::Cover::Dumper; print Dumper \@args;
return bless {
inputs => $args[0],
result => $args[1],

0 comments on commit 8adb9a4

Please sign in to comment.