| 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 } |