| line |
true |
false |
branch |
|
51
|
58 |
1 |
if ($self->can($method)) { } |
|
69
|
3 |
4 |
if -r $$self{'defaults'} |
|
75
|
8 |
1 |
if @_ |
|
81
|
0 |
0 |
if @_ |
|
87
|
8 |
2 |
if @_ |
|
93
|
7 |
0 |
if @_ |
|
100
|
8 |
1 |
if @_ |
|
107
|
8 |
0 |
if @_ |
|
114
|
9 |
44 |
if (@_) |
|
115
|
8 |
1 |
ref $_[0] eq 'ARRAY' ? : |
|
117
|
0 |
12 |
unless grep /^$order$/, ('defaults', 'env') |
|
123
|
46 |
7 |
wantarray ? : |
|
129
|
0 |
15 |
if (@_ > 1) { } |
|
|
7 |
8 |
elsif (@_ == 1 and ref $_[0] eq 'ARRAY') { } |
|
|
0 |
8 |
elsif (@_) { } |
|
139
|
2 |
13 |
wantarray ? : |
|
144
|
1 |
1 |
if @_ |
|
145
|
1 |
1 |
wantarray ? : |
|
163
|
0 |
23 |
if ($q->skip) |
|
164
|
0 |
0 |
if (ref $q->skip eq 'CODE') { } |
|
|
0 |
0 |
elsif (not ref $q->skip) { } |
|
165
|
0 |
0 |
if $q->skip->($self) |
|
167
|
0 |
0 |
if $q->skip |
|
179
|
25 |
18 |
if ($q->validate) |
|
180
|
0 |
25 |
unless ref $q->validate eq 'HASH' |
|
185
|
22 |
3 |
if ($@) |
|
188
|
2 |
20 |
if (++$attempts > 10) { } |
|
212
|
0 |
43 |
unless my $name = $q->name |
|
216
|
19 |
36 |
if (/^env/o) |
|
217
|
5 |
14 |
if defined $ENV{"\U$name\E"} |
|
218
|
2 |
12 |
if defined $ENV{"\L$name\E"} |
|
221
|
9 |
39 |
if /^defaults/ and $$self{'_defaults'}{$name} |
|
233
|
0 |
1 |
unless my $text = $self->package_text |
|
237
|
0 |
1 |
unless (-d $dir) |
|
239
|
0 |
0 |
unless File::Path::mkpath([$dir], $$self{'verbose'}) |
|
243
|
0 |
1 |
unless sysopen F, $$self{'file'}, 577, 384 |
|
246
|
0 |
1 |
unless close F |
|
248
|
1 |
0 |
if $$self{'verbose'} |
|
271
|
2 |
0 |
if -e $args{'file'} |
|
275
|
0 |
2 |
unless open F, "> $args{'file'}" |
|
283
|
2 |
10 |
if $k =~ /$args{'sep'}/ |
|
288
|
0 |
2 |
unless close F |
|
299
|
6 |
0 |
$@ ? : |
|
309
|
0 |
0 |
unless UNIVERSAL::can('Text::FormatTable', 'new') |
|
320
|
0 |
0 |
if ($q->noecho) { } |
|
342
|
0 |
30 |
if ($q->noecho) { } |
|
381
|
0 |
43 |
unless defined $q->msg and defined $q->name |
|
385
|
43 |
0 |
defined $def ? : |
|
386
|
43 |
0 |
defined $def ? : |
|
393
|
0 |
43 |
if ($ISA_TTY) { } |
|
394
|
0 |
0 |
if ($Term::ReadKey::VERSION and $q->noecho) { } |
|
406
|
0 |
43 |
$ans ne '' ? : |
|
412
|
7 |
0 |
if @_ |