| line |
true |
false |
branch |
|
25
|
1 |
22 |
unless $self->{'type'} =~ /^(?:double|pump)$/ |
|
28
|
1 |
21 |
unless $self->{'load'} =~ /^(?:bird|buck|slug)$/ |
|
30
|
1 |
20 |
if $self->{'debug'} |
|
31
|
21 |
0 |
if $self->{'quiet'} |
|
42
|
10 |
18 |
$self->{'type'} eq 'pump' ? : |
|
44
|
2 |
26 |
if $self->{'shots'} and $self->{'shots'} < $num_rounds |
|
48
|
0 |
28 |
if $self->{'verbose'} |
|
50
|
0 |
28 |
if $self->{'verbose'} |
|
66
|
1 |
15 |
unless my $target = $args{'target'} |
|
68
|
1 |
14 |
unless -e $target |
|
69
|
0 |
14 |
unless -f $target |
|
70
|
0 |
14 |
if -s $target > 1048576 |
|
73
|
1 |
13 |
if ($self->{'num_rounds'} == 0) |
|
91
|
2 |
42 |
if ($self->{'debug'}) |
|
96
|
0 |
42 |
unless open my $in, "<", $target |
|
110
|
23 |
222 |
if $v_offset >= $height |
|
116
|
111 |
1175 |
if $h_offset >= @line |
|
117
|
44 |
1131 |
if $line[$h_offset] eq "\n" |
|
119
|
117 |
1014 |
if ($self->{'load'} eq 'buck') { } |
|
|
29 |
985 |
elsif ($self->{'load'} eq 'slug') { } |
|
121
|
32 |
85 |
if grep {$_ == $h;} @{_buck_pattern($r)->{$v} // [];} |
|
124
|
2 |
27 |
if grep {$_ == $h;} @{_slug_pattern($r)->{$v} // [];} |
|
127
|
145 |
840 |
if grep {$_ == $h;} @{_bird_pattern($r)->{$v} // [];} |
|
134
|
0 |
42 |
unless open my $fh, ">", $target |
|
138
|
0 |
42 |
unless $self->{'quiet'} |