| 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;} ? : |
| 739 | 100 | T | F | if (defined $orig_proto) |
| 792 | 100 | T | F | if (@_ == 2 and defined $_[0] and $_[0] =~ /^(.*)::([^:]+)$/u) { } |
| 798 | 100 | T | F | unless $package and $dependency |
| 806 | 100 | T | F | defined &{$full;} ? : |
| 863 | 100 | T | F | unless defined $package and length $package |
| 866 | 100 | T | F | unless ref $deps eq "HASH" |
| 910 | 100 | T | F | unless defined $class and length $class |
| 912 | 100 | T | F | if @_ < 2 |
| 917 | 100 | T | F | ref $factory eq 'CODE' ? : |
| 993 | 100 | T | F | unless defined $name and ref $replacement eq "CODE" |
| 998 | 100 | T | F | unless $name =~ /^\w+$/u |
| 1000 | 100 | T | F | unless _is_core_overridable($name) |
| 1011 | 50 | T | F | defined $core_proto && $core_proto eq '_' ? : |
| 1013 | 50 | T | F | if $@ |
| 1023 | 50 | T | F | defined $core_proto ? : |
| 1033 | 100 | T | F | defined &{$full;} ? : |
| 1040 | 100 | T | F | $orig_existed ? : |
| 1085 | 100 | T | F | if (defined $arg) |
| 1089 | 100 | T | F | unless $full_method =~ /^\Q$package\E::/u |
| 1140 | 100 | T | F | unless defined $target |
| 1145 | 100 | T | F | unless exists $mocked{$full_method} |
| 1180 | 100 | T | F | unless defined $target |
| 1214 | 100 | T | F | unless defined $target and defined $message |
| 1250 | 100 | T | F | unless defined $target and @values |
| 1257 | 100 | T | F | if @queue == 1 |
| 1301 | 100 | T | F | unless defined $target and ref $code eq "CODE" |
| 1309 | 100 | T | F | wantarray ? : |
| 1346 | 100 | T | F | unless @expected >= 2 |
| 1351 | 100 | T | F | if ($logged eq $expected[$pos]) |
| 1353 | 100 | T | F | if $pos == @expected |
| 1360 | 100 | T | F | if ($ok) { } |
| 1443 | 100 | T | F | @$layers && $layers->[0]{'original_existed'} ? : |
| 1505 | 100 | T | F | if (defined $final_prev) { } |
| 50 | T | F | elsif ($full_method =~ /^CORE::GLOBAL::/u) { } |
| 1533 | 100 | T | F | if (defined $arg1 and not defined $arg2 and $arg1 =~ /^(.*)::([^:]+)$/u) |
| 1552 | 100 | T | F | unless $info[0] =~ /^Test::Mockingbird/u |
| 1556 | 50 | T | F | defined $info[1] ? : |
| 1570 | 100 | T | F | unless $full =~ /^[A-Za-z_]\w*(?:::[A-Za-z_]\w*)+$/u |
| 1574 | 100 | T | F | unless my $code = $pkg->can($sub) |