| line |
true |
false |
branch |
|
199
|
102 |
47 |
if @_ |
|
233
|
114 |
20 |
if (scalar @args > 0) |
|
234
|
17 |
97 |
if (scalar @args == 1) |
|
236
|
6 |
11 |
if (ref $arg eq "ARRAY") |
|
241
|
11 |
103 |
if (scalar @args == 1) { } |
|
|
99 |
4 |
elsif (scalar @args == 30) { } |
|
243
|
0 |
11 |
if (ref $arg) { } |
|
244
|
4 |
7 |
unless (length $arg == 30) |
|
256
|
2 |
2890 |
unless ($self->_is_valid_data_type($byte_value)) |
|
259
|
2 |
2888 |
unless ($self->_is_valid_byte_value($byte_value)) |
|
270
|
99 |
23 |
unless defined wantarray |
|
271
|
5 |
18 |
wantarray ? : |
|
277
|
2935 |
8 |
unless (ref $byte_value) |
|
287
|
2888 |
0 |
if (length $byte_value == 1 and ord $byte_value >= 0 and ord $byte_value <= 255) |
|
297
|
23 |
5 |
if ($self->is_int($number_value) and $number_value >= 0 and $number_value <= 255) |
|
308
|
252 |
0 |
unless ord $_ < 0 |
|
|
23 |
1 |
unless (grep {ord $_ > 255 unless ord $_ < 0;} split(//, $string_value, 0)) |
|
357
|
42 |
69 |
if (defined $type) |
|
358
|
1 |
41 |
if (ref $type) |
|
361
|
1 |
40 |
unless ($self->is_int($type)) |
|
364
|
1 |
39 |
if ($type - ($type & 15)) |
|
368
|
2 |
37 |
unless (grep {$_ == $type;} @valid_values) |
|
396
|
13 |
18 |
if (defined $is_closed) |
|
397
|
1 |
12 |
if (ref $is_closed) |
|
400
|
4 |
8 |
$is_closed ? : |
|
426
|
11 |
14 |
if (defined $is_locked) |
|
427
|
1 |
10 |
if (ref $is_locked) |
|
430
|
6 |
4 |
$is_locked ? : |
|
452
|
9 |
12 |
if (defined $track) |
|
453
|
1 |
8 |
unless ($self->_is_valid_data_type($track)) |
|
456
|
2 |
6 |
unless ($self->_is_valid_number_value($track)) |
|
480
|
9 |
12 |
if (defined $sector) |
|
481
|
1 |
8 |
unless ($self->_is_valid_data_type($sector)) |
|
484
|
2 |
6 |
unless ($self->_is_valid_number_value($sector)) |
|
534
|
27 |
73 |
if (scalar(@options) % 2 == 1) |
|
538
|
38 |
62 |
unless exists $options{'padding_with_a0'} |
|
540
|
27 |
73 |
if (defined $name) |
|
541
|
2 |
25 |
unless ($self->is_str($name)) |
|
544
|
1 |
24 |
if (length $name > 16) |
|
547
|
1 |
23 |
unless ($self->is_valid_string_value($name)) |
|
550
|
14 |
9 |
if ($options{'padding_with_a0'}) |
|
559
|
62 |
34 |
unless ($options{'padding_with_a0'}) |
|
588
|
7 |
5 |
if (defined $side_track) |
|
589
|
1 |
6 |
unless ($self->type eq $T_REL) |
|
592
|
1 |
5 |
unless ($self->_is_valid_data_type($side_track)) |
|
595
|
2 |
3 |
unless ($self->_is_valid_number_value($side_track)) |
|
601
|
1 |
7 |
unless $self->type eq $T_REL |
|
625
|
7 |
5 |
if (defined $side_sector) |
|
626
|
1 |
6 |
unless ($self->type eq $T_REL) |
|
629
|
1 |
5 |
unless ($self->_is_valid_data_type($side_sector)) |
|
632
|
2 |
3 |
unless ($self->_is_valid_number_value($side_sector)) |
|
638
|
1 |
7 |
unless $self->type eq $T_REL |
|
662
|
9 |
6 |
if (defined $record_length) |
|
663
|
1 |
8 |
unless ($self->type eq $T_REL) |
|
666
|
1 |
7 |
unless ($self->_is_valid_data_type($record_length)) |
|
669
|
2 |
5 |
unless ($self->_is_valid_number_value($record_length)) |
|
672
|
1 |
4 |
unless ($record_length >= 0 and $record_length < 255) |
|
678
|
1 |
9 |
unless $self->type eq $T_REL |
|
700
|
13 |
14 |
if (defined $size) |
|
701
|
2 |
11 |
unless ($self->_is_valid_data_type($size) and $self->is_int($size)) |
|
704
|
1 |
10 |
unless ($size >= 0 and $size <= 65535) |
|
763
|
2 |
4 |
if ($as_petscii) { } |
|
765
|
1 |
1 |
$self->closed ? : |
|
766
|
1 |
1 |
$self->locked ? : |
|
772
|
0 |
2 |
if ($verbose) { } |
|
781
|
2 |
2 |
$self->closed ? : |
|
782
|
2 |
2 |
$self->locked ? : |
|
788
|
2 |
2 |
if ($verbose) { } |
|
818
|
0 |
3 |
unless defined $data |
|
822
|
0 |
3 |
unless defined $type |
|
826
|
0 |
2 |
unless defined $closed |
|
830
|
0 |
2 |
unless defined $locked |
|
834
|
0 |
2 |
unless defined $track |
|
838
|
0 |
2 |
unless defined $sector |
|
842
|
0 |
2 |
unless defined $name |
|
845
|
0 |
2 |
if ($self->type eq $T_REL) |
|
848
|
0 |
0 |
unless defined $side_track |
|
852
|
0 |
0 |
unless defined $side_sector |
|
856
|
0 |
0 |
unless defined $record_length |
|
861
|
0 |
2 |
unless defined $size |
|
945
|
14 |
121 |
if ($match_pattern == 42) |
|
949
|
110 |
11 |
unless (defined $character and $match_pattern == 63) |
|
950
|
4 |
106 |
if (not defined $character or ord $character != $match_pattern) |
|
956
|
7 |
4 |
if (@name == @pattern) |
|
976
|
10 |
15 |
if ($as_petscii) { } |
|
987
|
14 |
1 |
if ($type >= 0 and $type < @mapping) { } |
|
1005
|
9 |
1 |
if ($type >= 0 and $type < @mapping) { } |