| line |
true |
false |
branch |
|
28
|
0 |
0 |
if ($raw_name =~ /^=?([^\W\d]\w*)\z/) |
|
45
|
0 |
0 |
if ($prefix =~ /^[\%\@\$]/) { } |
|
|
0 |
0 |
elsif ($prefix =~ /^[\-\+\d]/) { } |
|
|
0 |
0 |
elsif ('=' eq $prefix) { } |
|
|
0 |
0 |
elsif ($raw_value =~ /^#(-?\d+)\z/) { } |
|
|
0 |
0 |
elsif ($raw_value =~ /^\^+\z/) { } |
|
47
|
0 |
0 |
if defined $value |
|
51
|
0 |
0 |
if defined $value |
|
55
|
0 |
0 |
if defined $value |
|
59
|
0 |
0 |
if defined $value |
|
63
|
0 |
0 |
if defined $value |
|
77
|
0 |
2 |
if (defined $parser->_terminal) |
|
92
|
0 |
0 |
if (defined $name and defined $value) |
|
103
|
0 |
0 |
defined $value ? : |
|
105
|
0 |
0 |
unless ($errors) |
|
116
|
0 |
0 |
defined $value ? : |
|
118
|
0 |
0 |
unless ($errors) |
|
126
|
0 |
0 |
unless ($name =~ /^[^\W\d]\w*\z/) |
|
140
|
0 |
2 |
if (defined $terminal) |
|
153
|
2 |
0 |
unless (defined $line) |
|
172
|
0 |
2 |
if '' ne $prompt |
|
179
|
0 |
2 |
if '' ne $prompt |
|
194
|
0 |
2 |
if ($from_file) { } |
|
195
|
0 |
0 |
unless CORE::open $in_handle, '<', $in_filename |
|
202
|
2 |
0 |
unless (defined $prompt) |
|
203
|
0 |
2 |
-t $in_handle ? : |
|
205
|
2 |
0 |
unless (defined $enable_readline) |
|
208
|
0 |
2 |
if ($enable_readline) |
|
230
|
0 |
2 |
if ($this->_input_opened and not CORE::close $this->_input_handle) |
|
240
|
8 |
2 |
if (my $initial_cmd = $this->_pending_initial) |
|
244
|
2 |
0 |
unless @items |
|
246
|
0 |
0 |
if ($prefix =~ m[^[/?]]) |
|
250
|
0 |
0 |
if ($prefix =~ /^[^\W\d]/) |