| line |
true |
false |
branch |
|
20
|
0 |
4 |
unless $op =~ /^[a-z0-9_]+$/ |
|
22
|
4 |
0 |
unless (eval "require App::RecordStream::Operation::$op; 1;") |
|
23
|
4 |
0 |
if ($@ =~ /Please install missing modules/) { } |
|
51
|
62 |
256 |
unless $input |
|
52
|
21 |
235 |
if ref $input eq 'ARRAY' |
|
54
|
0 |
235 |
if (UNIVERSAL::isa($input, 'App::RecordStream::InputStream')) |
|
58
|
0 |
235 |
if (not $input =~ /\n/m and -e $input) |
|
72
|
139 |
19 |
if ($op->wants_input and $input) |
|
73
|
21 |
118 |
if (ref $input eq 'ARRAY') { } |
|
75
|
16 |
5 |
if ($t eq 'LINES') { } |
|
|
5 |
0 |
elsif ($t eq 'FILES') { } |
|
77
|
0 |
64 |
unless ($op->accept_line($l)) |
|
87
|
0 |
22 |
unless ($op->accept_line($l)) |
|
99
|
4 |
786 |
unless ($op->accept_record($r)) |
|
113
|
117 |
37 |
if ($output) |
|
131
|
0 |
423 |
unless &ok(scalar UNIVERSAL::isa($record, 'App::RecordStream::Record'), 'Record is a App::RecordStream::Record') |
|
134
|
0 |
154 |
unless is_deeply($results, \@output_records, "Records match: $name") |
|
136
|
0 |
154 |
unless &ok(scalar $this->{'KEEPER'}->has_called_finish, "Has called finish: $name") |
|
138
|
0 |
154 |
unless ($is_ok) |
|
163
|
5 |
116 |
if ($op->wants_input and @$args) |
|
164
|
0 |
5 |
if ($input) { } |