| line |
true |
false |
branch |
|
215
|
0 |
0 |
unless $self->get_options(\@argv, 'help|?', sub {
pod2usage(1);
}
, 'man', sub {
pod2usage(-'verbose', 2);
}
, 'autorun!', \$self->{'_autorun'}, 'close!', \$self->{'_close'}, 'd|debug+', \$self->{'_debug'}, 'E|endsub=s', \$self->{'_ending_sub'}, 'i|input=s', sub {
$self->parse_io_option('input', @_);
}
, 'log!', \$self->{'_logprog'}, 'o|output=s', sub {
$self->parse_io_option('output', @_);
}
, 'saveoutput=s', \$self->{'_save_output'}, 'w|warnings!', \$self->{'_warnings'}) |
|
231
|
0 |
0 |
if $#{$$self{'_external_command_argv'};} >= 0 and $self->{'_external_command_argv'}[0] eq '--' |
|
233
|
0 |
0 |
if $#{$$self{'_external_command_argv'};} < 0 |
|
236
|
0 |
0 |
if ($input_ref =~ /^Fsdb::BoundedQueue/) { } |
|
|
0 |
0 |
elsif ($input_ref =~ /^IO::/) { } |
|
|
0 |
0 |
elsif ($input_ref =~ /^Fsdb::IO::Reader/) { } |
|
|
0 |
0 |
elsif ($input_ref eq '' and $self->{'_input'} eq '-') { } |
|
|
0 |
0 |
elsif ($input_ref eq '') { } |
|
243
|
0 |
0 |
if $pipe->error |
|
271
|
0 |
0 |
if ($output_ref =~ /^Fsdb::BoundedQueue/) { } |
|
|
0 |
0 |
elsif ($output_ref =~ /^IO::/) { } |
|
|
0 |
0 |
elsif ($output_ref =~ /^Fsdb::IO::Writer/) { } |
|
|
0 |
0 |
elsif ($output_ref eq '' and $self->{'_output'} eq '-') { } |
|
|
0 |
0 |
elsif ($output_ref eq '') { } |
|
283
|
0 |
0 |
if $fh->error |
|
287
|
0 |
0 |
if not defined $self->{'_out_fileno'} |
|
304
|
0 |
0 |
if ($self->{'_warnings'}) { } |
|
317
|
0 |
0 |
unless defined $child_rdr_fd |
|
319
|
0 |
0 |
unless defined $child_wtr_fd |
|
326
|
0 |
0 |
unless open \*STDIN, '<&=', $child_rdr_fd |
|
327
|
0 |
0 |
unless open \*STDOUT, '>&=', $child_wtr_fd |
|
329
|
0 |
0 |
unless exec @$args_ref |
|
348
|
0 |
0 |
if (defined $fred) |
|
350
|
0 |
0 |
if $fred->error |
|
356
|
0 |
0 |
unless my $out = 'IO::Handle'->new_from_fd($self->{'_out_fileno'}, 'w') |