Permalink
Browse files

Tidy up some old code.

  • Loading branch information...
1 parent 0841b35 commit 870f2dbab1e14bb48a3d3f9d88826ce7ef1fbd23 @pjcj committed Aug 3, 2012
Showing with 0 additions and 13 deletions.
  1. +0 −13 lib/Devel/Cover.pm
View
13 lib/Devel/Cover.pm
@@ -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";

0 comments on commit 870f2db

Please sign in to comment.