| line |
true |
false |
branch |
|
50
|
62 |
1 |
if ($self->can($method)) { } |
|
68
|
3 |
4 |
if -r $self->defaults |
|
74
|
9 |
2 |
if @_ |
|
80
|
9 |
5 |
if @_ |
|
86
|
7 |
3 |
if @_ |
|
93
|
8 |
13 |
if @_ |
|
100
|
8 |
9 |
if @_ |
|
107
|
31 |
89 |
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 |
111 |
if (@_ > 1) { } |
|
|
8 |
103 |
elsif (@_ == 1 and ref $_[0] eq 'ARRAY') { } |
|
|
0 |
103 |
elsif (@_) { } |
|
139
|
2 |
109 |
wantarray ? : |
|
144
|
1 |
16 |
if @_ |
|
145
|
2 |
15 |
wantarray ? : |
|
151
|
0 |
102 |
unless defined $key |
|
152
|
81 |
21 |
unless defined $val |
|
164
|
0 |
23 |
if ($q->skip) |
|
165
|
0 |
0 |
if (ref $q->skip eq 'CODE') { } |
|
|
0 |
0 |
elsif (not ref $q->skip) { } |
|
166
|
0 |
0 |
if $q->skip->($self) |
|
168
|
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} |
|
226
|
2 |
25 |
defined $answer ? : |
|
232
|
0 |
1 |
unless my $text = $self->package_text |
|
236
|
0 |
1 |
unless (-d $dir) |
|
238
|
0 |
0 |
unless File::Path::mkpath([$dir], $self->verbose) |
|
242
|
0 |
1 |
unless sysopen my $fh, $self->file, 577, 384 |
|
245
|
0 |
1 |
unless close $fh |
|
247
|
1 |
0 |
if $self->verbose |
|
261
|
0 |
2 |
unless open my $fh, "> $args{'file'}" |
|
270
|
2 |
10 |
if $k =~ /$args{'sep'}/ |
|
275
|
0 |
2 |
unless close $fh |
|
286
|
0 |
6 |
$@ ? : |
|
295
|
0 |
6 |
unless UNIVERSAL::can('Text::FormatTable', 'new') |
|
306
|
0 |
30 |
if ($q->noecho) { } |
|
328
|
0 |
0 |
if ($q->noecho) { } |
|
369
|
0 |
43 |
unless defined $q->msg and defined $q->name |
|
373
|
43 |
0 |
defined $def ? : |
|
374
|
43 |
0 |
defined $def ? : |
|
381
|
0 |
43 |
if ($ISA_TTY) { } |
|
382
|
0 |
0 |
if ($Term::ReadKey::VERSION and $q->noecho) { } |
|
394
|
0 |
43 |
$ans ne '' ? : |