line |
true |
false |
branch |
37
|
3 |
15 |
if (@_ >= 3 and $_[1] eq 'record') { } |
|
1 |
28 |
elsif (@_ >= 3 and $_[1] eq 'playback') { } |
50
|
4 |
15 |
if defined $RECORDING_TO |
74
|
0 |
68 |
unless @_ > 0 |
76
|
58 |
10 |
if (@_ < 3) { } |
79
|
0 |
58 |
if $file =~ /^\s*\|(.+)\|\s*$/ |
80
|
0 |
58 |
if $file =~ /^\s*\|\s*(.+?)\s*$/ |
82
|
29 |
29 |
if $file =~ /^\s*(.+?)\s*\|\s*$/ |
87
|
0 |
10 |
if $_[1] =~ /^\s*-\|/ |
90
|
0 |
10 |
if $_[1] =~ /^\s*\|-/ |
113
|
52 |
30 |
if ($RECORDING) { } |
117
|
52 |
1 |
if defined $result |
120
|
52 |
0 |
if ($result) |
130
|
29 |
1 |
if (@possible) |
137
|
1 |
81 |
unless (defined $result) |
139
|
0 |
1 |
if $func eq 'open' |
140
|
0 |
1 |
if $func eq 'readpipe' |
141
|
1 |
0 |
if $func eq 'system' |
142
|
0 |
0 |
if $func eq 'exec' |
146
|
1 |
80 |
if ($func eq 'exec') |
149
|
1 |
0 |
WIFEXITED($code) ? : |
154
|
27 |
53 |
if $func eq 'readpipe' and wantarray |
171
|
13 |
15 |
defined $args->[0] ? : |
176
|
0 |
28 |
if @{$args;} == 1 |
177
|
21 |
7 |
if @{$args;} == 2 |
188
|
1 |
5 |
unless defined $file |
197
|
1 |
9 |
unless defined $file |
198
|
2 |
7 |
if -d $file |
203
|
2 |
5 |
unless open my $fh, '<', $file |
206
|
0 |
5 |
if $@ |
207
|
0 |
5 |
unless defined $VAR1 |
221
|
0 |
7 |
unless defined $file |
222
|
0 |
7 |
unless defined $file |
224
|
0 |
7 |
unless open FH, ">$file" |
225
|
0 |
7 |
unless print FH Dumper(\%COMMANDS) |
226
|
0 |
7 |
unless close FH |
232
|
0 |
2 |
unless UNIVERSAL::can($recorder, 'handle') |
249
|
0 |
68 |
if @_ % 2 |
253
|
54 |
14 |
if (exists $args{'command'}) { } |
254
|
11 |
43 |
if (ref $args{'command'} eq 'Regexp') { } |
256
|
7 |
4 |
exists $args{'function'} ? : |
258
|
18 |
15 |
if $_ =~ /$re/ |
264
|
39 |
4 |
exists $args{'function'} ? : |
269
|
4 |
10 |
if exists $args{'function'} |
288
|
25 |
5 |
if (@_ >= 1) |
289
|
0 |
25 |
unless defined $_[0] |
297
|
9 |
6 |
if @_ >= 1 |
303
|
0 |
22 |
unless @_ == 1 |
304
|
3 |
19 |
if (defined $_[0]) { } |
305
|
0 |
3 |
unless ref $_[0] eq 'CODE' |