Skip to content
Browse files

Allow for new anonlist and anonhash ops.

  • Loading branch information...
1 parent a58b7af commit 97f754101bc8b263b50ea843f758f875371316c4 @pjcj committed
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;

0 comments on commit 97f7541

Please sign in to comment.
Something went wrong with that request. Please try again.