| line |
true |
false |
branch |
|
109
|
199 |
4 |
unless $target->can($name) |
|
121
|
0 |
0 |
if $_ |
|
131
|
0 |
0 |
unless ($code) |
|
143
|
0 |
0 |
unless ($code) |
|
153
|
0 |
0 |
ref $args[0] eq 'ARRAY' ? : |
|
|
0 |
0 |
@args > 1 ? : |
|
205
|
0 |
0 |
if ($next and UNIVERSAL::isa($data, "CODE")) |
|
209
|
0 |
0 |
if ($next and &Scalar::Util::blessed($data)) |
|
210
|
0 |
0 |
if UNIVERSAL::can($data, $code) or UNIVERSAL::can($data, "AUTOLOAD") |
|
214
|
0 |
0 |
if ($next and ref $data eq "SCALAR") |
|
215
|
0 |
0 |
if UNIVERSAL::can(&load($$data)->package, $code) |
|
218
|
0 |
0 |
if ($next and UNIVERSAL::can(&load($data)->package, $code)) |
|
221
|
0 |
0 |
*{"${data}::$code";}{'CODE'} ? : |
|
223
|
0 |
0 |
if ($next and UNIVERSAL::can($data, "AUTOLOAD")) |
|
231
|
0 |
0 |
@_ ? : |
|
237
|
0 |
0 |
$into ? : |
|
249
|
1 |
0 |
$error ? : |
|
|
1 |
25 |
wantarray ? : |
|
255
|
0 |
0 |
if ref $type eq "ARRAY" |
|
266
|
0 |
0 |
if ($is_true) { } |
|
269
|
0 |
0 |
$code ? : |
|
279
|
0 |
0 |
unless $data |
|
281
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
299
|
0 |
0 |
@args > 1 ? : |
|
323
|
0 |
0 |
unless ($code) |
|
335
|
0 |
0 |
unless ($code) |
|
347
|
0 |
0 |
unless ($code) |
|
360
|
0 |
0 |
&Scalar::Util::blessed($_) ? : |
|
|
0 |
0 |
ref $_ eq 'SCALAR' ? : |
|
371
|
0 |
0 |
unless ($code) |
|
383
|
0 |
0 |
unless ($code) |
|
397
|
0 |
0 |
@args > 1 ? : |
|
431
|
0 |
0 |
unless ($code) |
|
445
|
0 |
0 |
unless $code |
|
451
|
0 |
0 |
if ref $returned eq "HASH" |
|
461
|
0 |
0 |
unless ($code) |
|
471
|
0 |
0 |
scalar(@args) % 2 ? : |
|
|
0 |
0 |
scalar(@args) % 2 ? : |
|
|
0 |
0 |
ref $args[0] eq 'HASH' ? : |
|
|
0 |
0 |
@args > 1 ? : |
|
481
|
0 |
0 |
&type($data, 'coded', 'BOOLEAN') ? : |
|
505
|
0 |
0 |
unless ($code) |
|
509
|
0 |
0 |
if (lc $code eq "decode") |
|
513
|
0 |
0 |
if (lc $code eq "encode") |
|
523
|
0 |
0 |
ref $_ eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $_ ? : |
|
544
|
0 |
0 |
if @args and not $$codes{$args[0]} |
|
550
|
0 |
0 |
unless @args |
|
559
|
0 |
0 |
unless @_ |
|
571
|
0 |
0 |
unless $code |
|
577
|
0 |
0 |
if ref $returned eq "HASH" |
|
585
|
0 |
78 |
unless ($lvalue) |
|
591
|
1 |
77 |
if (@rvalues > 1) { } |
|
600
|
0 |
77 |
unless ($rvalue) |
|
604
|
70 |
7 |
if (ref $lvalue eq "HASH") |
|
605
|
70 |
0 |
if (ref $rvalue eq 'HASH') { } |
|
609
|
35 |
131 |
ref $lprop eq 'HASH' && ref $rprop eq 'HASH' || ref $lprop eq 'ARRAY' && ref $rprop eq 'ARRAY' ? : |
|
622
|
7 |
70 |
if (ref $lvalue eq "ARRAY") |
|
623
|
7 |
0 |
if (ref $rvalue eq 'ARRAY') { } |
|
627
|
15 |
15 |
ref $lprop eq 'HASH' && ref $rprop eq 'HASH' || ref $lprop eq 'ARRAY' && ref $rprop eq 'ARRAY' ? : |
|
648
|
0 |
0 |
unless ($code) |
|
660
|
0 |
0 |
unless ($code) |
|
672
|
0 |
0 |
unless ($code) |
|
684
|
0 |
0 |
unless ($code) |
|
698
|
0 |
0 |
ref $args eq 'HASH' ? : |
|
|
0 |
0 |
ref $args eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $args ? : |
|
701
|
0 |
0 |
wantarray ? : |
|
709
|
0 |
0 |
unless ($code) |
|
721
|
0 |
0 |
unless ($code) |
|
725
|
0 |
0 |
if (lc $code eq "decode") |
|
729
|
0 |
0 |
if (lc $code eq "encode") |
|
741
|
0 |
0 |
unless ($code) |
|
753
|
0 |
0 |
unless ($code) |
|
767
|
0 |
0 |
if ($data->isa('Venus::Hash')) { } |
|
|
0 |
0 |
elsif ($data->isa('Venus::Array')) { } |
|
774
|
0 |
0 |
wantarray ? : |
|
780
|
0 |
6 |
if ref $self eq "ARRAY" |
|
785
|
6 |
0 |
unless $parent |
|
799
|
0 |
0 |
unless ($code) |
|
817
|
0 |
0 |
unless ($code) |
|
839
|
0 |
0 |
ref $data eq 'ARRAY' ? : |
|
843
|
0 |
0 |
unless ($code) |
|
866
|
0 |
0 |
unless ($code) |
|
881
|
0 |
0 |
ref $data eq 'ARRAY' ? : |
|
885
|
0 |
0 |
unless ($code) |
|
897
|
0 |
0 |
unless ($code) |
|
909
|
0 |
0 |
unless ($code) |
|
922
|
0 |
0 |
if ($args[$i] =~ /^\|+$/u) |
|
925
|
0 |
0 |
if ($args[$i] =~ /^\&+$/u) |
|
928
|
0 |
0 |
if ($args[$i] =~ /^\w+$/u) |
|
931
|
0 |
0 |
if ($args[$i] =~ /^[<>]+$/u) |
|
934
|
0 |
0 |
if ($args[$i] =~ /^\d[<>&]+\d?$/u) |
|
937
|
0 |
0 |
if ($args[$i] =~ /\$[A-Z]\w+/u) |
|
940
|
0 |
0 |
if ($args[$i] =~ /^\$\((.*)\)$/u) |
|
948
|
0 |
0 |
$exit == 0 ? : |
|
|
0 |
0 |
wantarray ? : |
|
956
|
0 |
0 |
unless ($code) |
|
968
|
0 |
0 |
unless ($code) |
|
982
|
0 |
0 |
@args > 1 ? : |
|
999
|
0 |
0 |
if (ref $data ne 'HASH') { } |
|
1000
|
0 |
0 |
if $data |
|
1003
|
0 |
0 |
if (exists $data->{'as'}) |
|
1006
|
0 |
0 |
if (exists $data->{'capture'}) |
|
1009
|
0 |
0 |
if (exists $data->{'context'}) |
|
1012
|
0 |
0 |
if (exists $data->{'error'}) |
|
1015
|
0 |
0 |
if (exists $data->{'frame'}) |
|
1018
|
0 |
0 |
if (exists $data->{'message'}) |
|
1021
|
0 |
0 |
if (exists $data->{'name'}) |
|
1024
|
0 |
0 |
if (exists $data->{'package'}) |
|
1027
|
0 |
0 |
if (exists $data->{'parent'}) |
|
1030
|
0 |
0 |
if (exists $data->{'stash'}) |
|
1033
|
0 |
0 |
if (exists $data->{'on'}) |
|
1038
|
0 |
0 |
unless $code |
|
1055
|
0 |
0 |
unless ($code) |
|
1067
|
0 |
0 |
unless ($code) |
|
1087
|
0 |
0 |
unless ($code) |
|
1097
|
0 |
0 |
unless @args |
|
1113
|
0 |
0 |
unless @_ |
|
1121
|
0 |
0 |
@_ ? : |
|
1129
|
0 |
0 |
unless ($code) |
|
1133
|
0 |
0 |
if (lc $code eq "decode") |
|
1137
|
0 |
0 |
if (lc $code eq "encode") |