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