| line |
true |
false |
branch |
|
107
|
199 |
4 |
unless $target->can($name) |
|
119
|
0 |
0 |
if $_ |
|
129
|
0 |
0 |
unless ($code) |
|
141
|
0 |
0 |
unless ($code) |
|
151
|
0 |
0 |
ref $args[0] eq 'ARRAY' ? : |
|
|
0 |
0 |
@args > 1 ? : |
|
187
|
0 |
0 |
if ($next and UNIVERSAL::isa($data, "CODE")) |
|
191
|
0 |
0 |
if ($next and &Scalar::Util::blessed($data)) |
|
192
|
0 |
0 |
if UNIVERSAL::can($data, $code) or UNIVERSAL::can($data, "AUTOLOAD") |
|
196
|
0 |
0 |
if ($next and ref $data eq "SCALAR") |
|
197
|
0 |
0 |
if UNIVERSAL::can(&load($$data)->package, $code) |
|
200
|
0 |
0 |
if ($next and UNIVERSAL::can(&load($data)->package, $code)) |
|
203
|
0 |
0 |
*{"${data}::$code";}{'CODE'} ? : |
|
205
|
0 |
0 |
if ($next and UNIVERSAL::can($data, "AUTOLOAD")) |
|
213
|
0 |
0 |
@_ ? : |
|
219
|
0 |
0 |
$into ? : |
|
231
|
1 |
0 |
$error ? : |
|
|
1 |
25 |
wantarray ? : |
|
237
|
0 |
0 |
if ref $type eq "ARRAY" |
|
248
|
0 |
0 |
if ($is_true) { } |
|
251
|
0 |
0 |
$code ? : |
|
261
|
0 |
0 |
unless $data |
|
263
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
281
|
0 |
0 |
@args > 1 ? : |
|
305
|
0 |
0 |
unless ($code) |
|
317
|
0 |
0 |
unless ($code) |
|
329
|
0 |
0 |
unless ($code) |
|
342
|
0 |
0 |
&Scalar::Util::blessed($_) ? : |
|
|
0 |
0 |
ref $_ eq 'SCALAR' ? : |
|
353
|
0 |
0 |
unless ($code) |
|
365
|
0 |
0 |
unless ($code) |
|
379
|
0 |
0 |
@args > 1 ? : |
|
413
|
0 |
0 |
unless ($code) |
|
427
|
0 |
0 |
unless $code |
|
433
|
0 |
0 |
if ref $returned eq "HASH" |
|
443
|
0 |
0 |
unless ($code) |
|
453
|
0 |
0 |
scalar(@args) % 2 ? : |
|
|
0 |
0 |
scalar(@args) % 2 ? : |
|
|
0 |
0 |
ref $args[0] eq 'HASH' ? : |
|
|
0 |
0 |
@args > 1 ? : |
|
463
|
0 |
0 |
&type($data, 'coded', 'BOOLEAN') ? : |
|
487
|
0 |
0 |
unless ($code) |
|
491
|
0 |
0 |
if (lc $code eq "decode") |
|
495
|
0 |
0 |
if (lc $code eq "encode") |
|
505
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $_ ? : |
|
524
|
0 |
0 |
unless @_ |
|
536
|
0 |
0 |
unless $code |
|
542
|
0 |
0 |
if ref $returned eq "HASH" |
|
550
|
0 |
78 |
unless ($lvalue) |
|
556
|
1 |
77 |
if (@rvalues > 1) { } |
|
565
|
0 |
77 |
unless ($rvalue) |
|
569
|
70 |
7 |
if (ref $lvalue eq "HASH") |
|
570
|
70 |
0 |
if (ref $rvalue eq 'HASH') { } |
|
574
|
35 |
131 |
ref $lprop eq 'HASH' && ref $rprop eq 'HASH' || ref $lprop eq 'ARRAY' && ref $rprop eq 'ARRAY' ? : |
|
587
|
7 |
70 |
if (ref $lvalue eq "ARRAY") |
|
588
|
7 |
0 |
if (ref $rvalue eq 'ARRAY') { } |
|
592
|
15 |
15 |
ref $lprop eq 'HASH' && ref $rprop eq 'HASH' || ref $lprop eq 'ARRAY' && ref $rprop eq 'ARRAY' ? : |
|
613
|
0 |
0 |
unless ($code) |
|
625
|
0 |
0 |
unless ($code) |
|
637
|
0 |
0 |
unless ($code) |
|
649
|
0 |
0 |
unless ($code) |
|
663
|
0 |
0 |
ref $args eq 'HASH' ? : |
|
|
0 |
0 |
ref $args eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $args ? : |
|
666
|
0 |
0 |
wantarray ? : |
|
674
|
0 |
0 |
unless ($code) |
|
686
|
0 |
0 |
unless ($code) |
|
690
|
0 |
0 |
if (lc $code eq "decode") |
|
694
|
0 |
0 |
if (lc $code eq "encode") |
|
706
|
0 |
0 |
unless ($code) |
|
718
|
0 |
0 |
unless ($code) |
|
732
|
0 |
0 |
if ($data->isa('Venus::Hash')) { } |
|
|
0 |
0 |
elsif ($data->isa('Venus::Array')) { } |
|
739
|
0 |
0 |
wantarray ? : |
|
745
|
0 |
6 |
if ref $self eq "ARRAY" |
|
750
|
6 |
0 |
unless $parent |
|
764
|
0 |
0 |
unless ($code) |
|
782
|
0 |
0 |
unless ($code) |
|
804
|
0 |
0 |
ref $data eq 'ARRAY' ? : |
|
808
|
0 |
0 |
unless ($code) |
|
831
|
0 |
0 |
unless ($code) |
|
846
|
0 |
0 |
ref $data eq 'ARRAY' ? : |
|
850
|
0 |
0 |
unless ($code) |
|
862
|
0 |
0 |
unless ($code) |
|
874
|
0 |
0 |
unless ($code) |
|
887
|
0 |
0 |
if ($args[$i] =~ /^\|+$/u) |
|
890
|
0 |
0 |
if ($args[$i] =~ /^\&+$/u) |
|
893
|
0 |
0 |
if ($args[$i] =~ /^\w+$/u) |
|
896
|
0 |
0 |
if ($args[$i] =~ /^[<>]+$/u) |
|
899
|
0 |
0 |
if ($args[$i] =~ /^\d[<>&]+\d?$/u) |
|
902
|
0 |
0 |
if ($args[$i] =~ /\$[A-Z]\w+/u) |
|
905
|
0 |
0 |
if ($args[$i] =~ /^\$\((.*)\)$/u) |
|
913
|
0 |
0 |
$exit == 0 ? : |
|
|
0 |
0 |
wantarray ? : |
|
921
|
0 |
0 |
unless ($code) |
|
933
|
0 |
0 |
unless ($code) |
|
947
|
0 |
0 |
@args > 1 ? : |
|
964
|
0 |
0 |
if (ref $data ne 'HASH') { } |
|
965
|
0 |
0 |
if $data |
|
968
|
0 |
0 |
if (exists $data->{'as'}) |
|
971
|
0 |
0 |
if (exists $data->{'capture'}) |
|
974
|
0 |
0 |
if (exists $data->{'context'}) |
|
977
|
0 |
0 |
if (exists $data->{'error'}) |
|
980
|
0 |
0 |
if (exists $data->{'frame'}) |
|
983
|
0 |
0 |
if (exists $data->{'message'}) |
|
986
|
0 |
0 |
if (exists $data->{'name'}) |
|
989
|
0 |
0 |
if (exists $data->{'package'}) |
|
992
|
0 |
0 |
if (exists $data->{'parent'}) |
|
995
|
0 |
0 |
if (exists $data->{'stash'}) |
|
998
|
0 |
0 |
if (exists $data->{'on'}) |
|
1003
|
0 |
0 |
unless $code |
|
1020
|
0 |
0 |
unless ($code) |
|
1032
|
0 |
0 |
unless ($code) |
|
1052
|
0 |
0 |
unless ($code) |
|
1062
|
0 |
0 |
unless @args |
|
1078
|
0 |
0 |
unless @_ |
|
1086
|
0 |
0 |
@_ ? : |
|
1094
|
0 |
0 |
unless ($code) |
|
1098
|
0 |
0 |
if (lc $code eq "decode") |
|
1102
|
0 |
0 |
if (lc $code eq "encode") |