line |
true |
false |
branch |
11
|
3 |
14 |
unless @_ |
28
|
4 |
10 |
if ($class eq 'params') { } |
|
2 |
8 |
elsif ($class eq 'inherit') { } |
31
|
3 |
1 |
unless %{"${calling_package}::GENERIC_PARAMS";} |
37
|
1 |
6 |
if exists ${"${calling_package}::GENERIC_PARAMS";}{$_} |
82
|
2 |
6 |
unless @params and $#params % 2 != 0 |
93
|
3 |
3 |
if ($class eq 'default_params') { } |
98
|
2 |
1 |
unless %{"${calling_package}::GENERIC_PARAMS";} |
103
|
2 |
3 |
if ref $value eq 'CODE' |
104
|
3 |
2 |
if not ref $value or ref $value ne 'CODE' |
120
|
1 |
4 |
unless exists $valid_params{$key} |
123
|
1 |
3 |
if ref $value eq 'CODE' |
124
|
3 |
1 |
if not ref $value or ref $value ne 'CODE' |
148
|
3 |
1 |
exists ${"${package_name}::";}{'GENERIC_PARAMS'} ? : |