| line |
true |
false |
branch |
|
241
|
3 |
5 |
unless my(@param) = @_ |
|
242
|
0 |
5 |
if @param > 2 |
|
248
|
3 |
2 |
if (@param == 1) |
|
249
|
1 |
2 |
if ($param[0] eq 'coerce') { } |
|
|
2 |
0 |
elsif ($param[0] eq 'from') { } |
|
265
|
0 |
2 |
unless my $method = &_IDENTIFIER($param[0]) |
|
266
|
0 |
2 |
unless my $want = &_CLASS($param[1]) |
|
267
|
0 |
2 |
if _function_exists($pkg, $method) |
|
270
|
0 |
2 |
unless (_loaded($want)) |
|
272
|
0 |
0 |
if $@ |
|
277
|
0 |
2 |
if $@ |
|
301
|
0 |
5 |
unless my $want = &_CLASS($_[0]) |
|
302
|
0 |
5 |
unless _loaded($want) |
|
310
|
0 |
4 |
unless @_ == 2 |
|
318
|
13 |
0 |
&Scalar::Util::blessed($_[0]) ? : |
|
321
|
5 |
8 |
if $have->isa($want) |
|
325
|
4 |
4 |
exists $hints{$key} ? : |
|
|
0 |
8 |
unless my $hint = exists $hints{$key} ? $hints{$key} : _resolve($want, ref $have, $key) |
|
331
|
7 |
1 |
if ($type eq '>') { } |
|
|
1 |
0 |
elsif ($type eq '<') { } |
|
|
0 |
0 |
elsif ($type eq '^') { } |
|
358
|
3 |
1 |
if $have->can($method) |
|
363
|
1 |
0 |
if $want->can($method) |
|
387
|
8 |
0 |
unless substr($_, -2, 2) eq '::' |