| line |
true |
false |
branch |
|
347
|
3 |
90 |
if (@_ and @_ % 2) |
|
351
|
1 |
89 |
ref $class ? : |
|
361
|
4 |
86 |
if ($args{'method'}) |
|
367
|
2 |
87 |
if (my(@args_notok) = grep((!$args_ok{$_}), keys %args)) |
|
371
|
59 |
28 |
if ($args{'options'}) |
|
375
|
68 |
17 |
if ($args{'tuple'}) |
|
395
|
1 |
217 |
unless @options |
|
397
|
12 |
205 |
if (not @options % 2) { } |
|
|
205 |
0 |
elsif (@options == 1) { } |
|
402
|
205 |
0 |
if (ref $options_first eq 'HASH') { } |
|
417
|
54 |
849 |
if ($option_name eq '-method') { } |
|
422
|
36 |
810 |
if (not defined $option_value) { } |
|
449
|
0 |
0 |
if (not grep(($_ eq $option_name), @options_ok)) { } |
|
|
0 |
0 |
elsif (exists $$self{'options'}{$option_name} and defined $$self{'options'}{$option_name}) { } |
|
467
|
0 |
849 |
unless defined $option_name |
|
470
|
0 |
849 |
if (not defined $$self{'options'}{-'method'}) { } |
|
479
|
3 |
846 |
unless (grep(($_ eq $option_name), @options_ok)) |
|
482
|
36 |
810 |
if (not defined $option_value) { } |
|
514
|
0 |
2140 |
unless (defined $$self{'options'}{-'method'}) |
|
522
|
56 |
2084 |
unless (@options) |
|
530
|
2693 |
0 |
if (grep(($_ eq $option_name), @ok_options)) { } |
|
532
|
2508 |
185 |
if (exists $$self{'options'}{$option_name} and defined $$self{'options'}{$option_name}) { } |
|
543
|
56 |
2084 |
if ($output_hash) { } |
|
546
|
1939 |
145 |
if (@values == 1) { } |
|
571
|
0 |
36 |
if (defined $option_name) |
|
615
|
860 |
1 |
if ($$self{'data'}) { } |
|
635
|
0 |
1 |
if (not defined $method) { } |
|
650
|
1 |
147 |
if (ref $method) |
|
654
|
1 |
876 |
unless ($method->can($fn)) |
|
658
|
0 |
146 |
if ($method->_get_tuple_size <= 0) |
|
661
|
0 |
146 |
unless ($method->_get_default_options) |
|
664
|
0 |
146 |
unless ($method->_get_ok_options) |
|
729
|
0 |
0 |
unless ($self->get_tuple) |
|
748
|
0 |
72 |
unless ($self->get_tuple) |
|
769
|
0 |
36 |
unless ($self->get_tuple) |
|
790
|
0 |
174 |
unless ($self->get_tuple) |
|
797
|
0 |
174 |
unless defined $v |
|
822
|
0 |
0 |
unless $self->get_tuple |
|
839
|
0 |
36 |
unless $self->get_tuple |
|
846
|
0 |
0 |
unless $self->get_tuple |
|
853
|
0 |
15 |
unless $self->get_tuple |
|
866
|
0 |
174 |
if $@ |
|
879
|
0 |
174 |
if $@ |
|
892
|
0 |
174 |
if $@ |
|
905
|
124 |
8 |
if (@tuple_in == 1) { } |
|
907
|
123 |
1 |
if (ref $tuple_in_first eq 'ARRAY') { } |
|
|
1 |
0 |
elsif (ref $tuple_in_first) { } |
|
922
|
124 |
7 |
if (@tuple == $tuple_size) { } |
|
924
|
5 |
327 |
unless defined $tuple[$i] |
|
925
|
3 |
324 |
if ref $tuple[$i] |
|
926
|
1 |
323 |
unless $tuple[$i] =~ qr/^[-+]?[0-9]*\.?[0-9]+([eE][-+]?[0-9]+)?$/ |