| line |
true |
false |
branch |
|
25
|
3 |
0 |
unless (defined &{$package . '::has';}) |
|
28
|
3 |
0 |
unless (defined &{$package . '::extends';}) |
|
37
|
3 |
0 |
unless (defined &{$package . '::with';}) |
|
55
|
3 |
0 |
if ($] >= 5.01) |
|
64
|
1 |
0 |
@_ > 1 ? : |
|
|
1 |
0 |
@_ ? : |
|
69
|
0 |
8 |
unless $class = ref $class || $class and $attrs |
|
71
|
0 |
8 |
if ref $default and ref $default ne 'CODE' |
|
75
|
0 |
8 |
ref $attrs eq 'ARRAY' ? : |
|
76
|
0 |
8 |
unless $attr =~ /^[a-zA-Z_]\w*$/ |
|
80
|
0 |
8 |
if (not defined $default) { } |
|
84
|
1 |
7 |
ref $default eq 'CODE' ? : |
|
92
|
0 |
8 |
if $ENV{'MOMO_DEBUG'} |
|
93
|
0 |
8 |
unless eval "$code;1" |
|
|
3 |
0 |
if exists $_[0]{'age'} |
|
|
3 |
1 |
if (@_ == 1) |
|
|
1 |
1 |
if exists $_[0]{'city'} |
|
|
2 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'email'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'is_role'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'lang'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
2 |
0 |
if exists $_[0]{'name'} |
|
|
2 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'province'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
5 |
1 |
if exists $_[0]{'xml'} |
|
|
6 |
5 |
if (@_ == 1) |