| line |
true |
false |
branch |
|
21
|
0 |
1 |
if ($argv[0] and not $argv[0] =~ /^\-/ and my $class_for_sub_command = $self->class_for_sub_command($argv[0])) { } |
|
|
0 |
1 |
elsif (@argv == 1 and $argv[0] =~ /^(\-)?\-h(elp)?$/) { } |
|
41
|
0 |
1 |
if ($@) |
|
47
|
3 |
0 |
if defined $sub_class |
|
52
|
3 |
0 |
if ($sub_tree) { } |
|
56
|
0 |
0 |
if (defined $sub_class) { } |
|
73
|
0 |
0 |
if (my $doc = $self->__meta__->doc) { } |
|
79
|
0 |
0 |
if (my $doc = $parent->doc) |
|
110
|
0 |
0 |
if ($manual or $help) |
|
114
|
0 |
0 |
if ($txt =~ /^\=/) { } |
|
139
|
0 |
0 |
unless $Command::Tree::a->[0] <=> $Command::Tree::b->[0] |
|
159
|
0 |
0 |
if $max_length < length $_ |
|
169
|
0 |
0 |
if $end > $#sub_command_names |
|
188
|
0 |
2 |
if $sub_command_class->_is_hidden_in_docs |
|
190
|
1 |
1 |
unless (exists $categories{$category}) |
|
191
|
0 |
1 |
if ($category) { } |
|
225
|
0 |
2 |
$_->isa('Command::Tree') ? : |
|
235
|
0 |
1 |
if ($category) |
|
237
|
0 |
0 |
if @full_data |
|
239
|
0 |
0 |
if ($category =~ /\D/) { } |
|
241
|
0 |
0 |
if $category =~ /\S/ |
|
261
|
2 |
4 |
if $max_width_found[$c] < length $_->[$c] |
|
270
|
4 |
2 |
$colors[$c] ? : |
|
285
|
0 |
0 |
$category ? : |
|
344
|
1 |
2 |
if (ref $mapping eq 'HASH') |
|
352
|
0 |
2 |
if ($@) |
|
371
|
8 |
16 |
if (-d $subdir_full_path) |
|
375
|
0 |
24 |
unless $basename =~ s/.pm$// |
|
378
|
0 |
24 |
unless ($sub_command_class_meta) |
|
386
|
0 |
24 |
unless $sub_command_class_name->isa('Command') |
|
387
|
0 |
24 |
if $sub_command_class_meta->is_abstract |
|
388
|
0 |
24 |
if $sub_command_class_name eq $class |
|
399
|
0 |
0 |
unless defined $file |
|
400
|
0 |
0 |
unless length $file |
|
401
|
0 |
0 |
unless -f $file |
|
403
|
0 |
0 |
unless $last_word =~ s/.pm$// |
|
407
|
0 |
0 |
unless $sub_command_class_name->isa('Command') |
|
408
|
0 |
0 |
if $sub_command_class_name->__meta__->is_abstract |
|
409
|
0 |
0 |
if $sub_command_class_name eq $class |
|
434
|
3 |
0 |
do {
my $isa = $sub_class->isa('Command')
} ? : |
|
|
3 |
0 |
$meta ? : |
|
436
|
0 |
0 |
if ($@) |
|
437
|
0 |
0 |
if ($@ =~ /^Can't locate .*\.pm in \@INC/) { } |
|
451
|
0 |
3 |
if (ref $isa) |
|
453
|
0 |
0 |
if ($sub_class->SUPER::isa('Command')) { } |
|
473
|
0 |
3 |
if $sub_command =~ /^\-/ |
|
481
|
3 |
0 |
if $sub_command_class |
|
484
|
0 |
0 |
$_ eq 'Command' ? : |
|
487
|
0 |
0 |
if $sub_command_class |
|
494
|
0 |
0 |
if (my $sub_command_class = $mapping->{$sub_command}) { } |
|
506
|
0 |
0 |
if $meta |
|
509
|
0 |
0 |
if ($depth > 1) |
|
515
|
0 |
0 |
if $class |