blib/lib/App/cdif/Command.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 5 | 0.0 |
line | l | !l | condition |
---|---|---|---|
54 | 0 | 0 | (my $fh = "IO::File"->new)->open("-|") // die("open: $@\n") |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
94 | 0 | 0 | 0 | $obj->{'STDIN'} //= do { die "new_tmpfile: $!\n" unless my $fh = "IO::File"->new_tmpfile; die "fcntl F_SETFD: $!\n" unless $fh->fcntl(2, 0); binmode $fh, ":encoding(utf8)"; $fh } |