| line |
true |
false |
branch |
|
39
|
133 |
3530 |
ref $options{'deprecated'} eq ref sub {
|
|
44
|
73 |
3590 |
if @$arg_names == 0 and @{$options{'params'};} == 1 |
|
53
|
220 |
448 |
ref $_[-1] eq 'HASH' ? : |
|
57
|
9 |
1995 |
if ref $args->{$_} eq 'ARRAY' |
|
62
|
1 |
667 |
if @_ > @$arg_names |
|
68
|
0 |
239 |
if exists $args->{$param} |
|
73
|
14 |
653 |
if $options{'add_source'} |
|
75
|
4 |
663 |
exists $$args{-'authenticate'} ? : |
|
79
|
8 |
614 |
if (exists $args->{$boolean_arg}) |
|
80
|
0 |
8 |
if $args->{$boolean_arg} =~ /^true|false$/ |
|
81
|
3 |
5 |
$args->{$boolean_arg} ? : |
|
87
|
0 |
667 |
if exists $args->{'skip_user'} and $args->{'skip_user'} eq 'false' |
|
91
|
519 |
148 |
unless exists $args->{'id'} |
|
92
|
0 |
179 |
unless delete $args->{$1} |
|
116
|
2963 |
700 |
unless $options{'aliases'} |
|
152
|
0 |
3663 |
if @invalid_attributes |