| 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+)/u)[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+ ) $/iux |
| 157 | 7 | 46 | if (wantarray) { } |
| 170 | 46 | 20 | @_ == 1 ? : |
| 171 | 46 | 20 | @_ == 2 ? : |
| 186 | 9 | 44 | !$self->{'noterm'} && _isTerm($self->{'out'}) ? : |
| 191 | 7 | 46 | if (defined $self->{'pp'}) |
| 192 | 3 | 4 | unless eval { do { my $pp = $self->{'pp'}; die "Invalid pretty-printer '${pp}' specified: expected 'Module::sub' form" unless my($ppPN) = $pp =~ /^(.+)::.+$/iu; $ppPN =~ s[::][/]gu; die $@ unless eval { do { require "$ppPN.pm" } }; no strict 'refs'; die "Invalid pretty-printer '${pp}'" unless defined &$pp; $ppSub = \&$pp } } |
| 195 | 1 | 6 | unless my($ppPN) = $pp =~ /^(.+)::.+$/iu |
| 200 | 1 | 5 | unless eval { do { require "$ppPN.pm" } } |
| 204 | 1 | 4 | unless defined &$pp |
| 215 | 4 | 57 | $_[1] || $multiline || $indices ? : |
| 224 | 68 | 1 | defined $_[0] ? : |
| 5 | 69 | ref $_[0] ? : | |
| 225 | 12 | 62 | $color && $vc ? : |
| 234 | 11 | 59 | if ($ml) { } |
| 238 | 2 | 5 | $keyval ? : |
| 47 | 7 | $isScalar ? : | |
| 7 | 54 | $override ? : | |
| 242 | 0 | 3 | $color && $ic ? : |
| 3 | 58 | if length $info | |
| 243 | 12 | 49 | $color && $lc ? : |
| 61 | 0 | if length $label | |
| 244 | 44 | 9 | if $delims or defined $delims and $ml || !$color || length $vals == 0 |
| 253 | 8 | 45 | if $termW |