| line |
true |
false |
branch |
|
16
|
3 |
9 |
unless @_ |
|
23
|
8 |
1 |
unless (grep {$_[0] eq $_;} 'new', 'attr', 'class_attr', 'dual_attr') |
|
28
|
8 |
1 |
if ($no_export_syntax) { } |
|
33
|
8 |
0 |
if (defined $arg1) |
|
35
|
7 |
1 |
if ($arg1 =~ /^-/) { } |
|
36
|
6 |
1 |
if ($arg1 eq '-base') { } |
|
37
|
2 |
4 |
if (defined $arg2) |
|
57
|
3 |
4 |
if ($base_class) { } |
|
82
|
0 |
4 |
unless $exports{$method} |
|
95
|
4 |
4 |
@_ > 1 ? : |
|
|
8 |
28 |
@_ ? : |
|
104
|
5 |
10 |
if @args % 2 |
|
108
|
2 |
16 |
if ($i == 2) |
|
114
|
15 |
3 |
unless ref $attrs eq 'ARRAY' |
|
121
|
0 |
21 |
unless $attr =~ /^[a-zA-Z_]\w*$/ |
|
127
|
7 |
14 |
if (not defined $default) { } |
|
132
|
1 |
13 |
if ref $default and ref $default ne 'CODE' |
|
140
|
4 |
9 |
ref $default eq 'CODE' ? : |
|
151
|
0 |
20 |
if $ENV{'OBJECT_SIMPLE_DEBUG'} |
|
152
|
0 |
20 |
unless eval "$code;1" |
|
|
0 |
6 |
if exists $_[0]{'x'} |
|
|
6 |
0 |
if (@_ == 1) |
|
|
0 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'m37'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
0 |
6 |
if exists $_[0]{'y'} |
|
|
6 |
0 |
if (@_ == 1) |
|
|
0 |
2 |
if exists $_[0]{'m12'} |
|
|
2 |
0 |
if (@_ == 1) |
|
|
0 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'m31'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'m18'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'m35'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'m19'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
0 |
3 |
if exists $_[0]{'z'} |
|
|
3 |
0 |
if (@_ == 1) |
|
|
8 |
3 |
if (@_ == 1) |
|
|
1 |
2 |
if exists $_[0]{'m11'} |
|
|
3 |
2 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'m36'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
0 |
1 |
if exists $_[0]{'m38'} |
|
|
1 |
0 |
if (@_ == 1) |
|
|
1 |
1 |
if (@_ == 1) |
|
|
0 |
0 |
if (@_ == 1) |
|
|
1 |
1 |
if (@_ == 1) |
|
|
0 |
2 |
if exists $_[0]{'z'} |
|
|
2 |
0 |
if (@_ == 1) |
|
|
1 |
1 |
if (@_ == 1) |