line |
true |
false |
branch |
113
|
236 |
22 |
unless $target->can($name) |
125
|
0 |
0 |
if $_ |
135
|
0 |
0 |
unless ($code) |
147
|
0 |
0 |
unless ($code) |
157
|
0 |
0 |
ref $args[0] eq 'ARRAY' ? : |
|
0 |
0 |
@args > 1 ? : |
217
|
0 |
0 |
if ($next and UNIVERSAL::isa($data, "CODE")) |
221
|
0 |
0 |
if ($next and &Scalar::Util::blessed($data)) |
222
|
0 |
0 |
if UNIVERSAL::can($data, $code) or UNIVERSAL::can($data, "AUTOLOAD") |
226
|
0 |
0 |
if ($next and ref $data eq "SCALAR") |
227
|
0 |
0 |
if UNIVERSAL::can(&load($$data)->package, $code) |
230
|
0 |
0 |
if ($next and UNIVERSAL::can(&load($data)->package, $code)) |
233
|
0 |
0 |
*{"${data}::$code";}{'CODE'} ? : |
235
|
0 |
0 |
if ($next and UNIVERSAL::can($data, "AUTOLOAD")) |
243
|
0 |
0 |
@_ ? : |
249
|
0 |
0 |
$into ? : |
261
|
0 |
0 |
$error ? : |
|
0 |
26 |
wantarray ? : |
267
|
0 |
0 |
if ref $type eq "ARRAY" |
278
|
0 |
0 |
if ($is_true) { } |
281
|
0 |
0 |
$code ? : |
291
|
0 |
0 |
unless $data |
293
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
311
|
0 |
0 |
@args > 1 ? : |
343
|
0 |
0 |
unless ($code) |
355
|
0 |
0 |
unless ($code) |
367
|
0 |
0 |
unless ($code) |
380
|
0 |
0 |
&Scalar::Util::blessed($_) ? : |
|
0 |
0 |
ref $_ eq 'SCALAR' ? : |
391
|
0 |
0 |
unless ($code) |
403
|
0 |
0 |
unless ($code) |
417
|
0 |
0 |
@args > 1 ? : |
459
|
0 |
0 |
unless ($code) |
481
|
0 |
0 |
unless $code |
487
|
0 |
0 |
if ref $returned eq "HASH" |
497
|
0 |
0 |
unless ($code) |
507
|
0 |
0 |
scalar(@args) % 2 ? : |
|
0 |
0 |
scalar(@args) % 2 ? : |
|
0 |
0 |
ref $args[0] eq 'HASH' ? : |
|
0 |
0 |
@args > 1 ? : |
517
|
0 |
0 |
&type($data, 'coded', 'BOOLEAN') ? : |
541
|
0 |
0 |
unless ($code) |
545
|
0 |
0 |
if (lc $code eq "decode") |
549
|
0 |
0 |
if (lc $code eq "encode") |
559
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
0 |
0 |
defined $_ ? : |
580
|
0 |
0 |
if @args and not $$codes{$args[0]} |
586
|
0 |
0 |
unless @args |
595
|
0 |
0 |
unless @_ |
607
|
0 |
0 |
unless $code |
613
|
0 |
0 |
if ref $returned eq "HASH" |
621
|
0 |
78 |
unless ($lvalue) |
627
|
1 |
77 |
if (@rvalues > 1) { } |
636
|
0 |
77 |
unless ($rvalue) |
640
|
70 |
7 |
if (ref $lvalue eq "HASH") |
641
|
70 |
0 |
if (ref $rvalue eq 'HASH') { } |
645
|
35 |
131 |
ref $lprop eq 'HASH' && ref $rprop eq 'HASH' || ref $lprop eq 'ARRAY' && ref $rprop eq 'ARRAY' ? : |
658
|
7 |
70 |
if (ref $lvalue eq "ARRAY") |
659
|
7 |
0 |
if (ref $rvalue eq 'ARRAY') { } |
663
|
15 |
15 |
ref $lprop eq 'HASH' && ref $rprop eq 'HASH' || ref $lprop eq 'ARRAY' && ref $rprop eq 'ARRAY' ? : |
684
|
0 |
0 |
unless ($code) |
696
|
0 |
0 |
unless ($code) |
708
|
0 |
0 |
unless ($code) |
720
|
0 |
0 |
unless ($code) |
734
|
0 |
0 |
ref $args eq 'HASH' ? : |
|
0 |
0 |
ref $args eq 'ARRAY' ? : |
|
0 |
0 |
defined $args ? : |
737
|
0 |
0 |
wantarray ? : |
745
|
0 |
0 |
unless ($code) |
757
|
0 |
0 |
unless ($code) |
761
|
0 |
0 |
if (lc $code eq "decode") |
765
|
0 |
0 |
if (lc $code eq "encode") |
777
|
0 |
0 |
unless ($code) |
789
|
0 |
0 |
unless ($code) |
803
|
0 |
0 |
if ($data->isa('Venus::Hash')) { } |
|
0 |
0 |
elsif ($data->isa('Venus::Array')) { } |
810
|
0 |
0 |
wantarray ? : |
816
|
0 |
6 |
if ref $self eq "ARRAY" |
821
|
6 |
0 |
unless $parent |
835
|
0 |
0 |
unless ($code) |
853
|
0 |
0 |
unless ($code) |
875
|
0 |
0 |
ref $data eq 'ARRAY' ? : |
879
|
0 |
0 |
unless ($code) |
902
|
0 |
0 |
unless ($code) |
917
|
0 |
0 |
ref $data eq 'ARRAY' ? : |
921
|
0 |
0 |
unless ($code) |
933
|
0 |
0 |
unless ($code) |
945
|
0 |
0 |
unless ($code) |
958
|
0 |
0 |
if ($args[$i] =~ /^\|+$/u) |
961
|
0 |
0 |
if ($args[$i] =~ /^\&+$/u) |
964
|
0 |
0 |
if ($args[$i] =~ /^\w+$/u) |
967
|
0 |
0 |
if ($args[$i] =~ /^[<>]+$/u) |
970
|
0 |
0 |
if ($args[$i] =~ /^\d[<>&]+\d?$/u) |
973
|
0 |
0 |
if ($args[$i] =~ /\$[A-Z]\w+/u) |
976
|
0 |
0 |
if ($args[$i] =~ /^\$\((.*)\)$/u) |
984
|
0 |
0 |
$exit == 0 ? : |
|
0 |
0 |
wantarray ? : |
992
|
0 |
0 |
unless ($code) |
1004
|
0 |
0 |
unless ($code) |
1018
|
0 |
0 |
@args > 1 ? : |
1035
|
0 |
0 |
if (ref $data ne 'HASH') { } |
1036
|
0 |
0 |
if $data |
1039
|
0 |
0 |
if (exists $data->{'as'}) |
1042
|
0 |
0 |
if (exists $data->{'capture'}) |
1045
|
0 |
0 |
if (exists $data->{'context'}) |
1048
|
0 |
0 |
if (exists $data->{'error'}) |
1051
|
0 |
0 |
if (exists $data->{'frame'}) |
1054
|
0 |
0 |
if (exists $data->{'message'}) |
1057
|
0 |
0 |
if (exists $data->{'name'}) |
1060
|
0 |
0 |
if (exists $data->{'package'}) |
1063
|
0 |
0 |
if (exists $data->{'parent'}) |
1066
|
0 |
0 |
if (exists $data->{'stash'}) |
1069
|
0 |
0 |
if (exists $data->{'on'}) |
1074
|
0 |
0 |
unless $code |
1091
|
0 |
0 |
unless ($code) |
1103
|
0 |
0 |
unless ($code) |
1123
|
0 |
0 |
unless ($code) |
1133
|
0 |
0 |
unless @args |
1149
|
0 |
0 |
unless @_ |
1157
|
0 |
0 |
@_ ? : |
1165
|
0 |
0 |
unless ($code) |
1169
|
0 |
0 |
if (lc $code eq "decode") |
1173
|
0 |
0 |
if (lc $code eq "encode") |