| blib/lib/Getopt/EX/termcolor/XTerm.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 30 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 40 | 0 | 0 | @rgb ? : |
| 51 | 0 | 0 | if $alias{$res} |
| 91 | 0 | 0 | @_ ? : |
| 92 | 0 | 0 | unless my $Ps = $oscPs{$name} |
| 100 | 0 | 0 | unless @_ |
| 101 | 0 | 0 | unless defined $_[0] |
| 102 | 0 | 0 | if $_[0] =~ /$osc_answer_re/u |
| 107 | 0 | 0 | if ($debug) |
| 112 | 0 | 0 | unless open my $tty, '+<', '/dev/tty' |
| 124 | 0 | 0 | if $answer =~ /$osc_st_re\z/u |
| 127 | 0 | 0 | if ($debug) |
| 139 | 0 | 0 | unless my $rgb = osc_answer(ask(osc_stp($name))) |
| 140 | 0 | 0 | unless my(@rgb) = $rgb =~ m[rgb:([\da-f]+)/([\da-f]+)/([\da-f]+)]iu |
| 142 | 0 | 0 | $max == 255 ? : |
| 154 | 0 | 0 | @rgb ? : |