Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Allow for new anonlist and anonhash ops.

  • Loading branch information...
commit 97f754101bc8b263b50ea843f758f875371316c4 1 parent a58b7af
@pjcj authored
Showing with 2 additions and 1 deletion.
  1. +2 −1  lib/Devel/Cover.pm
View
3  lib/Devel/Cover.pm
@@ -813,7 +813,8 @@ sub add_condition_cover
$name = $r->first->name if $name eq "sassign";
# TODO - exec? any others?
# print STDERR "Name [$name]\n";
- if ($c->[5] || $name =~ /^const|s?refgen|gelem|die|undef|bless$/)
+ if ($c->[5] || $name =~
+ /^const|s?refgen|gelem|die|undef|bless|anon(?:list|hash)$/)
{
$c = [ $c->[3], $c->[1] + $c->[2] ];
$count = 2;
Please sign in to comment.
Something went wrong with that request. Please try again.