Branch Coverage

blib/lib/Nice/Try.pm
Criterion Covered Total %
branch 222 406 54.6


line true false branch
47 25 0 unless exists $hash->{'debug'}
48 25 0 unless exists $hash->{'no_filter'}
49 25 0 unless exists $hash->{'debug_code'}
50 25 0 unless exists $hash->{'debug_dump'}
51 25 0 unless exists $hash->{'dont_want'}
55 0 25 if ($class->can("TIESCALAR") or $class->can("TIEHASH") or $class->can("TIEARRAY"))
60 0 25 overload::Overloaded($class) ? :
84 3 3 defined $n ? :
100 0 43 if ($self->{'no_filter'})
104 0 0 if $self->{'debug'} >= 3
110 0 2489 if ($status < 0)
112 0 0 if $self->{'debug'} >= 3
124 18 25 unless $line
125 25 0 unless ($status < 0)
131 0 25 if $self->{'debug'} >= 4
135 0 25 if $self->{'debug_dump'}
136 21 4 if ($doc = $self->_parse($doc)) { }
150 0 25 if (length $last_line)
155 0 25 unless ($status <= 0)
160 0 0 if $status < 0
165 0 25 if ($self->{'debug_file'})
167 0 0 if (open my $fh, ">$self->{'debug_file'}")
182 0 0 unless defined $code and length $code
183 0 0 unless (ref $self)
185 0 0 !(@_ % 2) ? :
0 0 ref $_[0] eq 'HASH' ? :
0 0 !(@_ && defined $_[0]) ? :
201 0 0 if $self->{'debug'} >= 4
203 0 0 if $self->{'debug_dump'}
204 0 0 if ($doc = $self->_parse($doc))
216 0 0 if ($self->{'debug'} >= 4)
221 0 0 unless $elem->children
225 0 0 if ($e->can("children") and $e->children)
235 0 0 if (@_)
237 0 0 ref $_ eq 'CODE' ? :
240 0 0 if warnings::enabled()
249 0 0 $_[0] =~ /^\d+$/ ? :
250 0 0 if $self->{'debug'} < $level
256 0 0 ref $_ eq 'CODE' ? :
265 96 0 $_[0] =~ /^\d+$/ ? :
266 96 0 if $self->{'debug'} < $level
275 0 0 if ref $_
278 0 0 ref $_ eq 'CODE' ? :
289 0 267 unless (&Scalar::Util::blessed($elem) and $elem->isa("PPI::Node"))
299 0 267 unless defined $ref
300 0 25 if $ref and ref $ref and $self->{'debug'} >= 4
301 242 25 unless $ref and scalar @$ref
307 0 25 if $self->{'debug'} >= 3
311 0 118 unless scalar @block_children
321 2 1536 if ($sib->class eq "PPI::Token::Word" and $sib->content eq "try")
325 2 0 if ($next and $next->class eq "PPI::Structure::Block")
327 0 2 if $self->{'debug'} >= 3
329 0 2 if $self->{'debug'} >= 3
337 0 118 if $self->{'debug'} >= 3
339 0 118 if $self->{'debug'} >= 3
341 2 116 if (scalar @$tmp_ref > 1) { }
347 0 4 if $self->{'debug'} >= 3
350 0 4 if $self->{'debug'} >= 4
357 8 49 if ($o->class eq 'PPI::Structure::Block' and $last_control) { }
11 38 elsif ($o->class eq 'PPI::Token::Word') { }
366 4 3 if ($ct eq "try" or $ct eq "catch" or $ct eq "finally")
385 4 21 if $o->class eq "PPI::Structure::Block" and &Scalar::Util::refaddr($o) eq &Scalar::Util::refaddr($last->{'block'})
388 0 4 if $self->{'debug'} >= 3
407 0 0 defined $last_obj ? :
0 0 defined $last_obj ? :
0 4 if $self->{'debug'} >= 3
408 0 4 if $self->{'debug'} >= 4
411 2 2 if ($last_obj->class eq 'PPI::Token::Whitespace') { }
420 0 4 if (not defined $rc) { }
0 4 elsif (not $rc) { }
431 4 0 if (scalar @$insignificants)
433 0 4 if $self->{'debug'} >= 4
436 0 21 if $self->{'debug'} >= 4
446 0 21 if ($@) { }
0 21 elsif (not defined $rc) { }
0 21 elsif (not $rc) { }
448 0 0 if (ref $o) { }
450 0 0 if $self->{'debug'}
454 0 0 if $self->{'debug'}
459 0 0 if $self->{'debug'}
463 0 0 if $self->{'debug'}
466 0 21 unless $o->parent
471 0 4 if length $err
483 0 25 if $self->{'debug'} >= 3
484 1 24 if scalar @$alt_ref > scalar @$ref
490 0 120 if $self->{'debug'} >= 5
508 5 115 unless scalar @block_children
521 296 1159 if (not scalar @$try_block_ref) { }
129 1030 elsif ($sib->class eq 'PPI::Token::Word' and $sib->content eq 'catch') { }
448 582 elsif ($inside_catch) { }
13 569 elsif ($sib->class eq 'PPI::Token::Word' and $sib->content eq 'finally') { }
27 542 elsif ($inside_finally) { }
189 353 elsif ($sib->class eq 'PPI::Token::Whitespace' and $sib->content =~ /[\015\012]+/) { }
524 113 183 if ($sib->class eq 'PPI::Structure::Block' and substr("$sib", 0, 1) eq '{' and substr("$sib", -1, 1) eq '}') { }
68 115 elsif ($sib->class eq 'PPI::Token::Whitespace' and $sib->content =~ /[\015\012]+/) { }
531 113 0 if (scalar @$buff)
555 125 4 if (scalar @$buff)
566 96 352 if ($sib->class eq 'PPI::Structure::List') { }
129 223 elsif ($sib->class eq 'PPI::Structure::Block') { }
87 136 elsif ($sib->class eq 'PPI::Token::Whitespace' and $sib->content =~ /[\015\012]+/) { }
574 24 105 if (scalar @$catch_def) { }
602 13 0 if (scalar @$buff)
613 0 27 if ($sib->class eq 'PPI::Structure::List') { }
13 14 elsif ($sib->class eq 'PPI::Structure::Block') { }
1 13 elsif ($sib->class eq 'PPI::Token::Whitespace' and $sib->content =~ /[\015\012]+/) { }
620 0 13 if (scalar @$fin_block_ref) { }
7 6 elsif (scalar @$catch_def) { }
669 105 10 scalar @$catch_def > 0 ? :
673 13 102 if (scalar @$fin_block_ref)
683 13 0 unless $self->{'debug_code'}
685 1 12 if ($fin_def->{'open_curly_nl'}) { }
693 0 13 if ($fin_def->{'close_curly_nl'}) { }
704 113 2 if (scalar @$try_block_ref) { }
719 3 110 if (my $emb = $self->_parse($try_def->{'block'}))
748 113 0 unless ($self->{'is_tied'} or $self->{'dont_want'} or $self->{'is_overloaded'})
855 113 0 unless $self->{'debug_code'}
857 68 45 if ($try_def->{'open_curly_nl'}) { }
865 103 10 if ($try_def->{'close_curly_nl'}) { }
875 8 105 if (not $has_catch_clause) { }
898 113 0 unless $self->{'debug_code'}
900 105 8 if (scalar @$catch_def) { }
911 1 128 if (my $emb = $self->_parse($cdef->{'block'}))
916 96 33 if ($cdef->{'var'}) { }
925 15 81 if ($str =~ /^(\S+)[[:blank:]\h\v]+(\$\S+)$/) { }
4 77 elsif ($str =~ /^(\S+)[[:blank:]\h\v]+(\$\S+)[[:blank:]\h\v]+where[[:blank:]\h\v]+\{(.*?)\}$/) { }
1 76 elsif ($str =~ /^(\$\S+)[[:blank:]\h\v]+where[[:blank:]\h\v]+\{(.*?)\}$/) { }
9 67 elsif ($str =~ /^(\$\S+)[[:blank:]\h\v]+isa[[:blank:]\h\v]+(\S+)(?:[[:blank:]\h\v]+where[[:blank:]\h\v]+\{(.*?)\})?$/) { }
2 65 elsif ($str =~ /^(?\$\S+)[[:blank:]\h\v]+isa[[:blank:]\h\v]*\([[:blank:]\h\v]*(?["'])?(?[^[:blank:]\h\v\'\"\)]+)\k{quote}[[:blank:]\h\v]*\)(?:[[:blank:]\h\v]+where[[:blank:]\h\v]+\{(?.*?)\})?$/) { }
955 129 0 if ($cdef->{'block'}) { }
965 105 24 if ($i == 0) { }
11 13 elsif ($i == $total_catch - 1) { }
974 2 9 $cdef->{'class'} ? :
0 11 $total_catch == 1 ? :
1061 96 33 if ($cdef->{'var'}) { }
1064 12 84 if ($cdef->{'class'} and $cdef->{'where'}) { }
18 66 elsif ($cdef->{'class'}) { }
1 65 elsif ($cdef->{'where'}) { }
1106 0 65 if (++$else > 1)
1109 0 0 if warnings::enabled()
1113 56 9 if $cond eq "if" or $cond eq "elsif"
1128 33 0 if $cond eq "if" or $cond eq "elsif"
1137 129 0 unless $self->{'debug_code'}
1139 87 42 if ($cdef->{'open_curly_nl'}) { }
1147 27 102 if ($cdef->{'close_curly_nl'}) { }
1160 65 40 if ($else) { }
1176 105 0 unless $self->{'debug_code'}
1198 8 0 unless $self->{'debug_code'}
1203 113 0 scalar @$catch_repl ? :
1204 113 0 if $catch_res
1209 7 106 if ($has_catch_clause and length $fin_block)
1221 113 0 unless $self->{'debug_code'}
1302 113 0 unless $self->{'debug_code'}
1330 113 0 unless $self->{'debug_code'}
1341 0 113 unless ($rc = $element_before_try->insert_after($token))
1347 0 0 defined $rc ? :
0 113 if $self->{'debug'} >= 3
1353 0 1293 unless $e->delete
1374 9 1419 unless $elem->children
1380 5 7072 if ($class eq "PPI::Token::Word" and $content =~ /^(?:CORE\::)?(?:GLOBAL\::)?caller$/)
1386 1173 5904 if ($e->can("elements") and $e->elements)
1401 8 1215 unless $elem->children
1402 0 1215 if $self->{'debug'} >= 5
1406 0 0 $e->can('elements') ? :
0 5998 if $self->{'debug'} >= 6
1409 0 5998 if ($class eq 'PPI::Structure::For' or $class eq 'PPI::Statement::Compound' and defined $e->first_element->content and $e->first_element->content =~ /^(for|foreach|while)$/) { }
0 5998 elsif ($class eq 'PPI::Token::Word' and $content =~ /^(?:CORE\::)?(?:GLOBAL\::)?(next|last|redo)$/) { }
82 5916 elsif ($class eq 'PPI::Statement::Break') { }
1419 0 0 if $self->{'debug'} >= 5
1427 0 0 if $self->{'debug'} >= 5
1430 0 0 if $self->{'debug'} >= 5
1435 0 82 if $self->{'debug'} >= 5
1436 82 0 scalar @$words ? :
1437 22 60 scalar @$words > 1 ? :
1438 0 82 if $self->{'debug'} >= 5
1439 0 82 if $self->{'debug'} >= 5 and scalar @$words > 1
1443 47 0 if (scalar @$words == 1 || scalar @$words > 1 && $word2 =~ /^(for|foreach|given|if|unless|until|while)$/ || $word1 eq 'return' and $word1 eq 'next' || $word1 eq 'last' || $word1 eq 'redo' || $word1 eq 'return')
1458 37 33 $word1 eq 'return' ? :
1461 10 60 if (scalar @$words > 1) { }
1470 0 70 if $self->{'debug'} >= 5
1476 0 70 if $self->{'debug'} >= 5
1478 0 70 if $self->{'debug'} >= 5
1489 981 4935 if ($e->can("elements") and $e->elements)
1517 6767 0 unless ($Token->isa("PPI::Token::HereDoc"))
1521 6767 0 unless ($heredoc ne "" and $content =~ /\n/)
1528 0 0 if ($content eq "\n") { }
1551 0 0 if ($Token->{'_damaged'})
1564 0 0 if ($tokens[$last_index]{'content'} =~ /^[^\n]*\n$/)
1572 0 0 if $tokens[$_]
1574 0 0 unless (defined $last_line)
1588 0 0 if $tokens[$_]->isa("PPI::Token::HereDoc")
1589 0 0 unless (defined $any_after)
1596 0 0 unless ($last_line and not $any_after)
1598 0 0 unless (defined $Token->{'_terminator_line'})
1604 0 0 unless ($Token->{'_terminator_line'} =~ /\n$/)
1611 0 0 if (defined $Token->{'_terminator_line'})
1618 0 351 if ($heredoc ne "")
1621 0 0 unless ($output =~ /\n$/)
1640 0 24 "$]" < 5.013002 ? :
1653 0 14 defined $catch_err ? :
1655 0 14 if defined $catch_err
1663 1 13 unless (eval { do { $@ = $err; &$code(@$args); 1 } })
1664 1 0 defined $@ ? :
1703 70 0 ref $_[0] ? :