| blib/lib/XTerm/Conf.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 41 | 106 | 38.6 |
| line | true | false | branch |
|---|---|---|---|
| 79 | 1 | 6 | unless $p->getoptions(\%o, 'iconname|n=s', 'title|T=s', 'fg|foreground=s', 'bg|background=s', 'textcursor|cr=s', 'mousefg|mouseforeground|ms=s', 'mousebg|mousebackground=s', 'tekfg|tekforeground=s', 'tekbg|tekbackground=s', 'highlightcolor|hc=s', 'bell', 'cs=s', 'fullreset', 'softreset', 'smoothscroll!', 'reverse|reversevideo!', 'origin!', 'wraparound!', 'autorepeat!', 'formfeed!', 'showcursor!', 'showscrollbar!', 'tektronix!', 'marginbell!', 'reversewraparound!', 'backsendsdelete!', 'bottomscrolltty!', 'bottomscrollkey!', 'metasendsesc|metasendsescape!', 'scrollregion=s', 'deiconify', 'iconify', 'geometry=s', 'raise', 'lower', 'refresh|x11refresh', 'maximize', 'unmaximize', 'xproperty|x11property=s', 'font=s', 'nextfont', 'prevfont', 'report=s', 'debugreport', 'resize=i') |
| 127 | 0 | 6 | if @ARGV |
| 131 | 0 | 6 | if $o{'bell'} |
| 134 | 0 | 6 | if (defined $o{'cs'}) |
| 135 | 0 | 0 | if $o{'cs'} =~ /^utf-?8$/i |
| 136 | 0 | 0 | if $o{'cs'} =~ /^(latin-?1|iso-?8859-?1)$/i |
| 141 | 0 | 6 | if $o{'fullreset'} |
| 161 | 0 | 90 | if (defined $o{$optname}) |
| 162 | 0 | 0 | $o{$optname} ? : |
| 168 | 0 | 6 | if $o{'softreset'} |
| 170 | 0 | 6 | if (defined $o{'scrollregion'}) |
| 171 | 0 | 0 | if ($o{'scrollregion'} eq '' or $o{'scrollregion'} eq 'default') { } |
| 176 | 0 | 0 | unless /^\d*$/ |
| 182 | 0 | 6 | if $o{'deiconify'} |
| 183 | 0 | 6 | if $o{'iconify'} |
| 185 | 0 | 6 | if (defined $o{'geometry'}) |
| 186 | 0 | 0 | if (my($w, $h, $wc, $hc, $x, $y) = $o{'geometry'} =~ /^(?:(\d+)x(\d+)|(\d+)cx(\d+)c)?(?:\+(\d+)\+(\d+))?$/) { } |
| 187 | 0 | 0 | if defined $x |
| 188 | 0 | 0 | if defined $h |
| 189 | 0 | 0 | if defined $hc |
| 195 | 0 | 6 | if $o{'raise'} |
| 196 | 0 | 6 | if $o{'lower'} |
| 197 | 0 | 6 | if $o{'refresh'} |
| 198 | 0 | 6 | if $o{'unmaximize'} |
| 199 | 0 | 6 | if $o{'maximize'} |
| 200 | 0 | 6 | if ($o{'resize'}) |
| 202 | 0 | 0 | if $o{'resize'} < 24 or not $o{'resize'} =~ /^\d+$/ |
| 206 | 0 | 6 | if defined $o{'iconname'} |
| 207 | 4 | 2 | if defined $o{'title'} |
| 208 | 0 | 6 | if defined $o{'xproperty'} |
| 209 | 0 | 6 | if defined $o{'fg'} |
| 210 | 0 | 6 | if defined $o{'bg'} |
| 211 | 0 | 6 | if defined $o{'textcursor'} |
| 212 | 0 | 6 | if defined $o{'mousefg'} |
| 213 | 0 | 6 | if defined $o{'mousebg'} |
| 214 | 0 | 6 | if defined $o{'tekfg'} |
| 215 | 0 | 6 | if defined $o{'tekbg'} |
| 216 | 0 | 6 | if defined $o{'highlightcolor'} |
| 217 | 0 | 6 | if defined $o{'font'} |
| 218 | 0 | 6 | if $o{'prevfont'} |
| 219 | 0 | 6 | if $o{'nextfont'} |
| 221 | 0 | 6 | if ($o{'report'}) |
| 222 | 0 | 0 | if ($o{'report'} eq 'cgeometry') { } |
| 239 | 2 | 2 | if (terminal_is_supported()) |
| 247 | 4 | 0 | unless defined $term |
| 248 | 1 | 3 | if (not $ENV{'TERM'}) { } |
| 1 | 2 | elsif (not $ENV{'TERM'} =~ /^(xterm|rxvt)/) { } | |
| 270 | 0 | 0 | unless open my $TTY, '+< /dev/tty' |
| 279 | 0 | 0 | unless (@ready) |
| 283 | 0 | 0 | unless sysread $TTY, my $ch, 1 |
| 284 | 0 | 0 | if $debug |
| 286 | 0 | 0 | if @args = $res =~ /$rx/ |
| 295 | 0 | 0 | if ($err) |