| blib/lib/PerlIO/via/ANSIColor.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 16 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 0 | if (defined $new_color) |
| 21 | 0 | 0 | unless $@ |
| 30 | 0 | 0 | unless $fh |
| 31 | 0 | 0 | if $new_color |
| 41 | 0 | 0 | if (defined(my $line = readline $_[1])) |
| 50 | 0 | 0 | if ($str =~ /\n$/) { } |
| 52 | 0 | 0 | unless print {$_[2];} $color . $str . $reset . "\n" |
| 55 | 0 | 0 | unless print {$_[2];} $color . $_[1] . $reset |