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 |