| line |
true |
false |
branch |
|
96
|
1 |
25 |
if (scalar @args == 1) { } |
|
110
|
12 |
68 |
if (defined $short_attributes{$k}) { } |
|
|
27 |
41 |
elsif (grep {$k eq $short_attributes{$_};} keys %short_attributes) { } |
|
|
18 |
23 |
elsif (grep {$_ eq $k;} @long_attributes) { } |
|
111
|
0 |
12 |
if $long |
|
116
|
0 |
27 |
if $short |
|
121
|
22 |
1 |
if ($k eq 'original_json') { } |
|
137
|
1 |
24 |
if (keys %orig < 2) |
|
144
|
1 |
23 |
if (defined $attr{'ok'} and $attr{'ok'} != 1) |
|
151
|
5 |
18 |
if (defined $attr{'data'}) |
|
152
|
0 |
5 |
unless ref $attr{'data'} eq 'ARRAY' |
|
154
|
1 |
6 |
unless ref $data_set eq 'ARRAY' |
|
155
|
1 |
5 |
unless scalar @{$data_set;} |
|
156
|
1 |
4 |
unless $$data_set[0] > 0 |
|
163
|
1 |
19 |
if (defined $attr{'error_code'}) |
|
164
|
1 |
0 |
unless $attr{'error_code'} > 0 |
|
170
|
6 |
13 |
if ($checksum) |
|
172
|
1 |
5 |
unless ($calced_checksum == $checksum) |
|
183
|
22 |
0 |
if $_ ne 'checksum' |
|
191
|
3 |
25 |
if (ref $value eq 'ARRAY') |
|
233
|
3 |
60 |
$self->can('has_' . $_)->($self) ? : |
|
235
|
63 |
6 |
if $_ ne 'unit' and $_ ne 'checksum' |
|
249
|
2 |
40 |
$self->can('has_' . $_)->($self) ? : |
|
252
|
42 |
4 |
if $_ ne 'unit' and $_ ne 'checksum' |
|
258
|
0 |
42 |
if ($short_data{$short_attributes{$k}}) |
|
299
|
1 |
2 |
if (ref $parsed[0]) { } |
|
|
1 |
1 |
elsif (scalar @parsed == 1) { } |
|
314
|
1 |
14 |
defined $current ? : |
|
317
|
1 |
14 |
if $start == -1 |
|
319
|
4 |
10 |
if $end == -1 |
|
322
|
9 |
1 |
if ($another_start == -1) { } |
|
323
|
4 |
5 |
$start == 0 ? : |
|
330
|
0 |
1 |
if defined $current and $another_start == $current |
|
339
|
9 |
5 |
if (@parse_first) { } |
|
341
|
5 |
4 |
if $pre and length $pre |
|
346
|
2 |
7 |
if ($@) |
|
353
|
2 |
6 |
$one ? : |
|
|
8 |
1 |
if $post and length $post |
|
366
|
0 |
1 |
$self->has_checksum ? : |
|
378
|
1 |
0 |
$self->has_checksum ? : |