| line |
true |
false |
branch |
|
83
|
0 |
0 |
unless GetOptions 'configfile=s', \$opts{'configfile'}, 'lowercase=s@', \$opts{'lowercase'}, 'uppercase=s@', \$opts{'uppercase'}, 'numerical=i@', \$opts{'numerical'}, 'unreadable=s@', \$opts{'unreadable'}, 'specials=s@', \$opts{'specials'}, 'n|number=i', \$opts{'number'}, 'r|readable!', \$opts{'readable'}, 'v|verify!', \$opts{'verify'}, 'l|length=i', \$opts{'length'}, 'm|minlength=i', \$opts{'minlength'}, 'x|maxlength=i', \$opts{'maxlength'} |
|
100
|
0 |
0 |
unless defined $opts{$key} |
|
114
|
0 |
0 |
unless (exists $opts{'configfile'}) |
|
116
|
0 |
0 |
if (-e $file and -r $file) |
|
123
|
0 |
0 |
if (exists $opts{'configfile'}) |
|
138
|
0 |
0 |
if ref $file eq 'CODE' |
|
139
|
0 |
0 |
ref $file eq 'ARRAY' ? : |
|
142
|
0 |
0 |
$can_config_any_args ? : |
|
154
|
0 |
0 |
unless (exists $$raw_cfany{$file_tested}) |
|
161
|
0 |
0 |
unless $cfany_hash and ref $cfany_hash and ref $cfany_hash eq 'HASH' |
|
178
|
20040 |
0 |
if (my $ref = $self->$type) |
|
185
|
5007 |
3 |
if ($self->readable) |
|
218
|
0 |
5008 |
if (defined $self->length and $num_of_types > $self->length or $num_of_types > $self->minlength) |
|
220
|
0 |
0 |
defined $self->length ? : |
|
227
|
1 |
5007 |
if ($self->minlength > $self->maxlength) |
|
251
|
15143 |
27149 |
if ($verify and $char_type and @{$self->$char_type;}) |
|
253
|
15143 |
0 |
if (@{$self->$char_type;}) |
|
260
|
10099 |
5044 |
scalar @char_types > 0 ? : |
|
271
|
5004 |
40 |
if $number == 1 |
|
278
|
3 |
1 |
wantarray ? : |