Condition Coverage

blib/lib/Struct/WOP.pm

Criterion	Covered	Total	%
condition	17	33	51.5

and 2 conditions

line	l	!l	condition
16	3	0	$caller->can("filter_keys") and $caller->filter_keys($_[1]{$_}, $_) and next
18	4	10	eval { do { $_[1] = $_[0]->($_, $_[1], 1); 1 } } and last

and 3 conditions

line	!l	l&&!r	l&&r	condition
16	3	0	0	$caller->can("filter_keys") and $caller->filter_keys($_[1]{$_}, $_)
	1	0	2	$destruct and do { $_[3]{$_[0]->($_)} = $_[0]->($_[1]{$_}, $_[2]) }
17	0	1	1	do { ${$_[1];} =~ s/^(.*)$/$_[0]->(${$_[1];});/e; $_[1] } && $destruct
27	0	0	3	scalar @export == 1 and $export[0] eq "all"
52	0	2	2	do { $_[3]{$addr} = 1 } && $_[1] eq 'SCALAR'
	0	1	0	$HELP{'arrayref'}->($_[2], $_[0], $_[3]) && $_[0]
	0	1	0	$HELP{'hashref'}->($_[2], $_[0], $_[3], 1) && $_[0]

or 2 conditions

line	l	!l	condition
46	2	2	$_[3] \|\| {}

or 3 conditions

line	l	!l&&r	!l&&!r	condition
16	2	1	0	$destruct and do { $_[3]{$_[0]->($_)} = $_[0]->($_[1]{$_}, $_[2]) } or do { $_[1]{$_} = $_[0]->($_[1]{$_}, $_[2]) }
	0	0	0	$caller->can("filter_keys") and $caller->filter_keys($_[1]{$_}, $_) and next or ($destruct and do { $_[3]{$_[0]->($_)} = $_[0]->($_[1]{$_}, $_[2]) } or do { $_[1]{$_} = $_[0]->($_[1]{$_}, $_[2]) })