| line |
true |
false |
branch |
|
244
|
4 |
5 |
unless my(@param) = @_ |
|
245
|
0 |
5 |
if @param > 2 |
|
251
|
3 |
2 |
if (@param == 1) |
|
252
|
1 |
2 |
if ($param[0] eq 'coerce') { } |
|
|
2 |
0 |
elsif ($param[0] eq 'from') { } |
|
268
|
0 |
2 |
unless my $method = _IDENTIFIER($param[0]) |
|
269
|
0 |
2 |
unless my $want = _CLASS($param[1]) |
|
270
|
0 |
2 |
if _function_exists($pkg, $method) |
|
273
|
0 |
2 |
unless (_loaded($want)) |
|
275
|
0 |
0 |
if $@ |
|
280
|
0 |
2 |
if $@ |
|
304
|
0 |
5 |
unless my $want = _CLASS($_[0]) |
|
305
|
0 |
5 |
unless _loaded($want) |
|
313
|
0 |
4 |
unless @_ == 2 |
|
321
|
13 |
0 |
&Scalar::Util::blessed($_[0]) ? : |
|
324
|
5 |
8 |
if $have->isa($want) |
|
328
|
4 |
4 |
exists $hints{$key} ? : |
|
|
0 |
8 |
unless my $hint = exists $hints{$key} ? $hints{$key} : _resolve($want, ref $have, $key) |
|
334
|
7 |
1 |
if ($type eq '>') { } |
|
|
1 |
0 |
elsif ($type eq '<') { } |
|
|
0 |
0 |
elsif ($type eq '^') { } |
|
361
|
3 |
1 |
if $have->can($method) |
|
366
|
1 |
0 |
if $want->can($method) |
|
390
|
8 |
0 |
unless substr($_, -2, 2) eq '::' |