Branch Coverage

lib/CLI/Framework/Command.pm
Criterion Covered Total %
branch 25 42 59.5


line true false branch
44 0 7 unless my $object = $target_pkg->new
66 2 8 if (-d $subcommand_dir)
71 0 2 unless opendir $dh, $subcommand_dir
74 5 3 unless substr($subcommand, -3) =~ s/\.pm//
78 3 0 if ($subcommand_pkg->isa(ref $parent_command_object))
79 0 3 unless my $subcommand_obj = $subcommand_pkg->new
106 9 4 unless ref $descendant_names eq 'ARRAY'
110 3 5 if $parent_cmd_obj->package_is_registered($descendant_cmd)
119 3 2 if ($direct_parent_of_descendant eq ref $parent_cmd_obj)
151 0 0 if (my $subcommand = $cmd->registered_subcommand_object($subcommand_name)) { }
169 4 1 unless $input
172 1 0 unless %aliases
194 0 5 if (catch my $e)
201 0 5 if (my $subcommand = $cmd->registered_subcommand_object($first_arg)) { }
208 0 0 if (catch my $e)
209 0 0 if ($e->isa('CLI::Framework::Exception'))
229 1 4 if defined $first_arg
234 0 5 if (catch my $e)
235 0 0 if ($e->isa('CLI::Framework::Exception'))
253 4 13 unless $subcommand_name
261 0 6 unless $subcommand_obj and $subcommand_obj->isa('CLI::Framework::Command')