| blib/lib/Devel/Bug.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 60 | 66 | 90.9 |
| line | true | false | branch |
|---|---|---|---|
| 56 | 0 | 0 | unless (`stty size 2>/dev/null` =~ /^\d+\s+(\d+)/)[0] |
| 60 | 1 | 0 | if $@ |
| 61 | 1 | 0 | unless $w |
| 73 | 59 | 152 | @_ & 1 ? : |
| 88 | 219 | 590 | if exists {"%" => "keyval","\@" => "indices","d" => "delims","delimiters" => "delims","f" => "filename","fn" => "filename","i" => "indices","ic" => "infocolor","index" => "indices","indexes" => "indices","k" => "keyval","kv" => "keyval","l" => "lineno","lc" => "labelcolor","line" => "lineno","ln" => "lineno","m" => "multiline","ml" => "multiline","n" => "noterm","noterminal" => "noterm","o" => "out","output" => "out","override" => "val","p" => "package","pkg" => "package","v" => "val","value" => "val","valuecolor" => "valcolor","vc" => "valcolor"}->{$opt} |
| 91 | 2 | 807 | unless exists $optDefs->{$opt} |
| 98 | 205 | 602 | if ($type eq '+') { } |
| 121 | 4 | 73 | if (exists $OPTIONS{'bug'}) |
| 123 | 2 | 2 | unless $bug = $OPTIONS{'bug'} |
| 126 | 1 | 1 | unless $bug =~ /^ (?: [a-z]\w* | _\w+ ) $/xi |
| 159 | 7 | 46 | if (wantarray) { } |
| 188 | 46 | 20 | @_ == 1 ? : |
| 189 | 46 | 20 | @_ == 2 ? : |
| 204 | 9 | 44 | !$self->{'noterm'} && _isTerm($self->{'out'}) ? : |
| 209 | 7 | 46 | if (defined $self->{'pp'}) |
| 210 | 3 | 4 | unless eval { do { my $pp = $self->{'pp'}; die "Invalid pretty-printer '${pp}' specified: expected 'Module::sub' form" unless my($ppPN) = $pp =~ /^(.+)::.+$/i; $ppPN =~ s[::][/]g; die $@ unless eval { do { require "$ppPN.pm" } }; no strict 'refs'; die "Invalid pretty-printer '${pp}'" unless defined &$pp; $ppSub = \&$pp } } |
| 213 | 1 | 6 | unless my($ppPN) = $pp =~ /^(.+)::.+$/i |
| 218 | 1 | 5 | unless eval { do { require "$ppPN.pm" } } |
| 222 | 1 | 4 | unless defined &$pp |
| 233 | 4 | 57 | $_[1] || $multiline || $indices ? : |
| 242 | 68 | 1 | defined $_[0] ? : |
| 5 | 69 | ref $_[0] ? : | |
| 243 | 12 | 62 | $color && $vc ? : |
| 252 | 11 | 59 | if ($ml) { } |
| 256 | 2 | 5 | $keyval ? : |
| 47 | 7 | $isScalar ? : | |
| 7 | 54 | $override ? : | |
| 260 | 0 | 3 | $color && $ic ? : |
| 3 | 58 | if length $info | |
| 261 | 12 | 49 | $color && $lc ? : |
| 61 | 0 | if length $label | |
| 262 | 44 | 9 | if $delims or defined $delims and $ml || !$color || length $vals == 0 |
| 271 | 8 | 45 | if $termW |