Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Tidy up some old code.
  • Loading branch information
pjcj committed Aug 3, 2012
1 parent 0841b35 commit 870f2db
Showing 1 changed file with 0 additions and 13 deletions.
13 changes: 0 additions & 13 deletions lib/Devel/Cover.pm
Expand Up @@ -906,35 +906,22 @@ sub add_branch_cover
# warn "branch $type %x [@$c] => [@{$ccount->{branch}[$n]}]\n", $$op;
}

my %condition_locations;

sub add_condition_cover
{
my ($op, $strop, $left, $right) = @_;

return unless $Collect && $Coverage{condition};
unless ($Collect)
{
# $condition_locations{$$op} = [ $File, $Line ];
return
}

# local ($File, $Line) = @{$condition_locations{$$op}}
# if exists $condition_locations{$$op};

my $key = get_key($op);
# warn "Condition cover $$op from $File:$Line\n";
# print STDERR "left: [$left]\nright: [$right]\n";
# use Carp "cluck"; cluck("from here");

my $type = $op->name;
# print STDERR "type: [$type]\n";
$type =~ s/assign$//;
$type = "or" if $type eq "dor";
# print STDERR "type: [$type]\n";

my $c = $Coverage->{condition}{$key};
# print STDERR "Condition: ", Dumper $c;

no warnings "uninitialized";

Expand Down

0 comments on commit 870f2db

Please sign in to comment.