| line | % | coverage | branch |
|---|
| 328 | 100 | T | F | if (defined $arg1 and not defined $arg3 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 334 | 100 | T | F | unless _is_name($package) and _is_name($method) and $replacement |
| 340 | 100 | T | F | unless ref $replacement eq "CODE" |
| 355 | 100 | T | F | defined $original ? : |
| 356 | 100 | T | F | if (defined $orig_proto) |
| 415 | 100 | T | F | if (defined $arg1 and not defined $arg2 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 421 | 100 | T | F | unless _is_name($package) and _is_name($method) |
| 427 | 100 | T | F | unless exists $mocked{$full_method} and @{$mocked{$full_method};} |
| 437 | 100 | T | F | unless (@{$mocked{$full_method};}) |
| 482 | 100 | T | F | if (defined $arg1 and not defined $arg3 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 488 | 100 | T | F | unless _is_name($package) and _is_name($method) and ref $hook eq "CODE" |
| 498 | 100 | T | F | if (wantarray) { } |
| 100 | T | F | elsif (defined wantarray) { } |
| 552 | 100 | T | F | if (defined $arg1 and not defined $arg3 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 558 | 100 | T | F | unless _is_name($package) and _is_name($method) and ref $hook eq "CODE" |
| 567 | 100 | T | F | if (wantarray) { } |
| 100 | T | F | elsif (defined wantarray) { } |
| 635 | 100 | T | F | if (defined $arg1 and not defined $arg3 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 641 | 100 | T | F | unless _is_name($package) and _is_name($method) and ref $hook eq "CODE" |
| 698 | 100 | T | F | if (@args == 2 and ref $args[1] eq 'CODE') { } |
| 100 | T | F | elsif (@args == 3 and not ref $args[1] and ref $args[2] eq 'CODE') { } |
| 100 | T | F | elsif (@args >= 4 and @args % 2 == 0 and ref $args[1] eq 'CODE') { } |
| 100 | T | F | elsif (@args >= 5 and @args % 2 == 1 and ref $args[2] eq 'CODE') { } |
| 709 | 100 | T | F | unless ref $code eq "CODE" |
| 720 | 100 | T | F | unless ref $code eq "CODE" |
| 774 | 100 | T | F | unless _is_name($package) and _is_name($method) |
| 800 | 100 | T | F | if (defined $orig_proto) |
| 857 | 100 | T | F | if (@_ == 2) { } |
| 858 | 100 | T | F | if defined $_[0] |
| 864 | 100 | T | F | unless _is_name($package) and _is_name($dependency) |
| 924 | 100 | T | F | unless defined $package and length $package |
| 927 | 100 | T | F | unless ref $deps eq "HASH" |
| 971 | 100 | T | F | unless defined $class and length $class |
| 973 | 100 | T | F | if @_ < 2 |
| 978 | 100 | T | F | ref $factory eq 'CODE' ? : |
| 1059 | 100 | T | F | unless defined $name and ref $replacement eq "CODE" |
| 1064 | 100 | T | F | unless $name =~ /^\w+$/u |
| 1066 | 100 | T | F | unless _is_core_overridable($name) |
| 1080 | 100 | T | F | defined $core_proto ? : |
| 1090 | 100 | T | F | defined &{$full;} ? : |
| 1097 | 100 | T | F | $orig_existed ? : |
| 1143 | 100 | T | F | if (defined $arg) |
| 1147 | 100 | T | F | unless $full_method =~ /^\Q$package\E::/u |
| 1198 | 100 | T | F | unless defined $target |
| 1203 | 100 | T | F | unless exists $mocked{$full_method} |
| 1238 | 100 | T | F | unless defined $target |
| 1272 | 100 | T | F | unless defined $target and defined $message |
| 1308 | 100 | T | F | unless defined $target and @values |
| 1315 | 100 | T | F | if @queue == 1 |
| 1359 | 100 | T | F | unless defined $target and ref $code eq "CODE" |
| 1367 | 100 | T | F | wantarray ? : |
| 1404 | 100 | T | F | unless @expected >= 2 |
| 1409 | 100 | T | F | if ($logged eq $expected[$pos]) |
| 1411 | 100 | T | F | if $pos == @expected |
| 1418 | 100 | T | F | if ($ok) { } |
| 1501 | 100 | T | F | @$layers && $layers->[0]{'original_existed'} ? : |
| 1580 | 100 | T | F | defined &{$full;} ? : |
| 1581 | 100 | T | F | exists &{$full;} ? : |
| 1601 | 100 | T | F | if (defined $prev) { } |
| 100 | T | F | elsif ($full =~ /^CORE::GLOBAL::([^:]+)$/u) { } |
| 1648 | 100 | T | F | if exists &{$full;} |
| 1652 | 100 | T | F | unless my $code = _inherited_method($package, $method) |
| 1670 | 100 | T | F | unless $package eq "UNIVERSAL" |
| 1674 | 100 | T | F | if defined &{"${class}::$method";} |
| 1690 | 100 | T | F | if (defined $arg1 and not defined $arg2 and $arg1 =~ /^(.*)::([^:]+)$/u) |
| 1709 | 100 | T | F | unless $info[0] =~ /^Test::Mockingbird/u |
| 1713 | 50 | T | F | defined $info[1] ? : |
| 1727 | 100 | T | F | unless $full =~ /^[A-Za-z_]\w*(?:::[A-Za-z_]\w*)+$/u |
| 1731 | 100 | T | F | unless my $code = $pkg->can($sub) |
| 1757 | 100 | T | F | if (defined $proto and $proto eq '_') { } |
| 100 | T | F | elsif (defined $proto and $proto =~ /^((?:\\?[\$_*])*);?((?:\\?[\$_*])*)$/u) { } |
| 1778 | 100 | T | F | if $sub |