| line |
true |
false |
branch |
|
53
|
0 |
0 |
unless (defined $topic) |
|
61
|
0 |
0 |
if (exists $tool_commands{$topic}) |
|
63
|
0 |
0 |
unless (defined $descr) |
|
69
|
0 |
0 |
if ('/' eq substr($topic, 0, 1)) |
|
75
|
0 |
0 |
unless (ref $op) |
|
88
|
12 |
80 |
if ($copy) { } |
|
|
4 |
76 |
elsif ($par =~ s/^=head1 (?=COPYRIGHT)//) { } |
|
91
|
4 |
8 |
if $par =~ /^=/ |
|
100
|
0 |
4 |
unless $copy |
|
205
|
0 |
0 |
if ($min_args <= $act_args and $var_args < 0 || $act_args <= $max_args) |
|
208
|
0 |
0 |
$min_args ? : |
|
|
0 |
0 |
0 > $var_args ? : |
|
|
0 |
0 |
1 == $var_args ? : |
|
|
0 |
0 |
1 < $var_args ? : |
|
213
|
0 |
0 |
1 == $max_args ? : |
|
219
|
0 |
0 |
if ($name =~ s[^\?([/?\w].*)][?]s) |
|
222
|
0 |
0 |
unless exists $tool_commands{$name} |
|
224
|
0 |
0 |
if (my $error = $class->check_argc($name, $min_args, $var_args, 0 + @args)) |