| line |
true |
false |
branch |
|
27
|
1 |
11 |
if &blessed($class) |
|
30
|
2 |
9 |
if (exists $param{'proto'}) |
|
33
|
1 |
1 |
unless (&blessed($proto) || '') eq 'JIP::Object' |
|
46
|
1 |
12 |
unless &blessed($self) |
|
48
|
2 |
10 |
unless defined $attr and length $attr |
|
52
|
1 |
9 |
ref $attr eq 'ARRAY' ? : |
|
53
|
1 |
10 |
unless $each_attr =~ /^[a-zA-Z_]\w*$/x |
|
68
|
2 |
8 |
if (exists $param{'default'}) { } |
|
74
|
4 |
2 |
if (@JIP::Object::ARG == 1) { } |
|
|
1 |
1 |
elsif (ref $default_value eq 'CODE') { } |
|
114
|
1 |
9 |
unless &blessed($self) |
|
117
|
2 |
7 |
unless defined $method_name and length $method_name |
|
120
|
1 |
6 |
unless $method_name =~ /^[a-zA-Z_]\w*$/x |
|
123
|
1 |
5 |
unless ref $code eq 'CODE' |
|
134
|
6 |
39 |
unless exists $self->_meta->{$method_name} |
|
158
|
10 |
7 |
if (&blessed($self)) { } |
|
176
|
1 |
37 |
unless &blessed($self) |
|
181
|
35 |
2 |
if (defined(my $code = $self->own_method($method_name))) { } |
|
|
1 |
1 |
elsif (defined(my $proto = $self->proto)) { } |
|
208
|
13 |
1 |
if (exists $param->{'get'}) { } |
|
211
|
8 |
5 |
if ($getter eq '+') { } |
|
|
3 |
2 |
elsif ($getter eq '-') { } |
|
233
|
13 |
1 |
if (exists $param->{'set'}) { } |
|
236
|
8 |
5 |
if ($setter eq '+') { } |
|
|
3 |
2 |
elsif ($setter eq '-') { } |