| 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") |