| line |
true |
false |
branch |
|
98
|
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'}) |
|
103
|
0 |
0 |
unless defined $opts{$key} |
|
117
|
0 |
0 |
unless (exists $opts{'configfile'}) |
|
119
|
0 |
0 |
if (-e $file and -r $file) |
|
126
|
0 |
0 |
if (exists $opts{'configfile'}) |
|
141
|
0 |
0 |
if ref $file eq 'CODE' |
|
142
|
0 |
0 |
ref $file eq 'ARRAY' ? : |
|
145
|
0 |
0 |
$can_config_any_args ? : |
|
157
|
0 |
0 |
unless (exists $raw_cfany->{$file_tested}) |
|
164
|
0 |
0 |
unless $cfany_hash and ref $cfany_hash and ref $cfany_hash eq 'HASH' |
|
181
|
20040 |
0 |
if (my $ref = $self->$type) |
|
188
|
5007 |
3 |
if ($self->readable) |
|
221
|
0 |
5008 |
if (defined $self->length and $num_of_types > $self->length or $num_of_types > $self->minlength) |
|
223
|
0 |
0 |
defined $self->length ? : |
|
230
|
1 |
5007 |
if ($self->minlength > $self->maxlength) |
|
254
|
15143 |
27252 |
if ($verify and $char_type and @{$self->$char_type;}) |
|
256
|
15143 |
0 |
if (@{$self->$char_type;}) |
|
263
|
10099 |
5044 |
scalar @char_types > 0 ? : |
|
274
|
5004 |
40 |
if $number == 1 |
|
281
|
3 |
1 |
wantarray ? : |