| line | % | coverage | branch |
|---|
| 245 | 100 | T | F | if (defined $arg1 and not defined $arg3 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 251 | 100 | T | F | unless $package and $method and $replacement |
| 263 | 100 | T | F | defined &{$full_method;} ? : |
| 271 | 100 | T | F | if (defined $orig_proto) |
| 328 | 100 | T | F | if (defined $arg1 and not defined $arg2 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 334 | 100 | T | F | unless $package and $method |
| 340 | 100 | T | F | unless exists $mocked{$full_method} and @{$mocked{$full_method};} |
| 344 | 100 | T | F | if (defined $prev) { } |
| 50 | T | F | elsif ($full_method =~ /^CORE::GLOBAL::/u) { } |
| 362 | 100 | T | F | unless (@{$mocked{$full_method};}) |
| 407 | 100 | T | F | if (defined $arg1 and not defined $arg3 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 413 | 100 | T | F | unless $package and $method and ref $hook eq "CODE" |
| 427 | 100 | T | F | if (wantarray) { } |
| 100 | T | F | elsif (defined wantarray) { } |
| 481 | 100 | T | F | if (defined $arg1 and not defined $arg3 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 487 | 100 | T | F | unless $package and $method and ref $hook eq "CODE" |
| 500 | 100 | T | F | if (wantarray) { } |
| 100 | T | F | elsif (defined wantarray) { } |
| 568 | 100 | T | F | if (defined $arg1 and not defined $arg3 and $arg1 =~ /^(.*)::([^:]+)$/u) { } |
| 574 | 100 | T | F | unless $package and $method and ref $hook eq "CODE" |
| 635 | 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') { } |
| 646 | 100 | T | F | unless ref $code eq "CODE" |
| 657 | 100 | T | F | unless ref $code eq "CODE" |
| 711 | 100 | T | F | unless $package and $method |
| 722 | 100 | T | F | defined &{$full_method;} ? : |
| 740 | 100 | T | F | if (defined $orig_proto) |
| 793 | 100 | T | F | if (@_ == 2 and defined $_[0] and $_[0] =~ /^(.*)::([^:]+)$/u) { } |
| 799 | 100 | T | F | unless $package and $dependency |
| 807 | 100 | T | F | defined &{$full;} ? : |
| 864 | 100 | T | F | unless defined $package and length $package |
| 867 | 100 | T | F | unless ref $deps eq "HASH" |
| 911 | 100 | T | F | unless defined $class and length $class |
| 913 | 100 | T | F | if @_ < 2 |
| 918 | 100 | T | F | ref $factory eq 'CODE' ? : |
| 994 | 100 | T | F | unless defined $name and ref $replacement eq "CODE" |
| 999 | 100 | T | F | unless $name =~ /^\w+$/u |
| 1001 | 100 | T | F | unless _is_core_overridable($name) |
| 1012 | 50 | T | F | defined $core_proto && $core_proto eq '_' ? : |
| 1014 | 50 | T | F | if $@ |
| 1024 | 50 | T | F | defined $core_proto ? : |
| 1034 | 100 | T | F | defined &{$full;} ? : |
| 1041 | 100 | T | F | $orig_existed ? : |
| 1086 | 100 | T | F | if (defined $arg) |
| 1090 | 100 | T | F | unless $full_method =~ /^\Q$package\E::/u |
| 1141 | 100 | T | F | unless defined $target |
| 1146 | 100 | T | F | unless exists $mocked{$full_method} |
| 1181 | 100 | T | F | unless defined $target |
| 1215 | 100 | T | F | unless defined $target and defined $message |
| 1251 | 100 | T | F | unless defined $target and @values |
| 1258 | 100 | T | F | if @queue == 1 |
| 1302 | 100 | T | F | unless defined $target and ref $code eq "CODE" |
| 1310 | 100 | T | F | wantarray ? : |
| 1347 | 100 | T | F | unless @expected >= 2 |
| 1352 | 100 | T | F | if ($logged eq $expected[$pos]) |
| 1354 | 100 | T | F | if $pos == @expected |
| 1361 | 100 | T | F | if ($ok) { } |
| 1444 | 100 | T | F | @$layers && $layers->[0]{'original_existed'} ? : |
| 1506 | 100 | T | F | if (defined $final_prev) { } |
| 50 | T | F | elsif ($full_method =~ /^CORE::GLOBAL::/u) { } |
| 1534 | 100 | T | F | if (defined $arg1 and not defined $arg2 and $arg1 =~ /^(.*)::([^:]+)$/u) |
| 1553 | 100 | T | F | unless $info[0] =~ /^Test::Mockingbird/u |
| 1557 | 50 | T | F | defined $info[1] ? : |
| 1571 | 100 | T | F | unless $full =~ /^[A-Za-z_]\w*(?:::[A-Za-z_]\w*)+$/u |
| 1575 | 100 | T | F | unless my $code = $pkg->can($sub) |