| line |
true |
false |
branch |
|
40
|
0 |
0 |
unless GetOptionsFromArray \@args, $main_options, $self->_main_opt_spec |
|
45
|
0 |
0 |
if ($subcmd and not $subcmd =~ /^[a-z]+$/xi) |
|
54
|
0 |
0 |
if exists $sub_options{'_argv'} |
|
58
|
0 |
0 |
if (exists $sub_options{''}) |
|
59
|
0 |
0 |
if (ref $sub_options{''} eq 'ARRAY') { } |
|
69
|
0 |
0 |
unless defined $subcmd |
|
73
|
0 |
0 |
if ($subcmd eq 'help' or $$main_options{'help'}) |
|
79
|
0 |
0 |
if ($subcmd eq 'version' or $$main_options{'version'}) |
|
85
|
0 |
0 |
unless ($subcmd) |
|
100
|
0 |
0 |
unless ($self->cascm->can($subcmd)) |
|
200
|
0 |
0 |
if ($method eq 'WARNING' or $method eq 'ERROR') { } |
|
219
|
0 |
0 |
if ($cascm_home) |
|
221
|
0 |
0 |
if (-e $system_ctx_file) |
|
229
|
0 |
0 |
if ($ENV{'HVCONTEXT'}) { } |
|
234
|
0 |
0 |
if ($homedir and -e $homedir) |
|
238
|
0 |
0 |
if (-e $user_ctx_file) |
|
245
|
0 |
0 |
if ($main_ctx_file) { } |
|
251
|
0 |
0 |
if (-e $current_ctx_file) |
|
267
|
0 |
0 |
unless my $config = 'Config::Tiny'->read($file) |
|
272
|
0 |
0 |
if ($_ eq '_') { } |