| line |
true |
false |
branch |
|
8
|
29 |
2 |
scalar @_ == 1 ? :
|
|
15
|
3 |
28 |
defined $args{$accessor} ? :
|
|
18
|
0 |
31 |
$accessors{$accessor}{'builder'} ? :
|
|
20
|
0 |
29 |
unless (not $accessors{$accessor}{'required'} or defined $value)
|
|
29
|
34 |
14 |
if (defined $value)
|
|
30
|
4 |
30 |
if ((ref $value || '') ne 'HASH')
|
|
40
|
12 |
0 |
if (defined $name)
|
|
41
|
2 |
10 |
if (ref $name)
|
|
53
|
2 |
9 |
if ((ref $mg || '') =~ /^(|HASH|ARRAY|SCALAR|CODE|GLOB)$/)
|
|
54
|
2 |
0 |
defined $mg ? :
|
|
58
|
2 |
7 |
if ((ref $class || '') ne 'HASH')
|
|
59
|
2 |
0 |
defined $class ? :
|
|
63
|
2 |
5 |
defined $export ? :
|
|
64
|
2 |
5 |
if ((ref $export || '') ne 'HASH')
|
|
65
|
2 |
0 |
defined $export ? :
|
|
70
|
1 |
4 |
if ($class->{'CURRENT'}{'BASE'} or $class->{'CURRENT'}{'PARENT'})
|
|
72
|
0 |
1 |
unless $class->{'CURRENT'}{'BASE'}
|
|
73
|
1 |
0 |
unless $class->{'CURRENT'}{'PARENT'}
|
|
76
|
1 |
0 |
if ($self->export->{$cls}) { }
|
|
97
|
2 |
7 |
if ((ref $mg || '') =~ /^(|HASH|ARRAY|SCALAR|CODE|GLOB)$/)
|
|
98
|
2 |
0 |
defined $mg ? :
|
|
102
|
2 |
5 |
if ((ref $meta || '') ne 'HASH')
|
|
103
|
2 |
0 |
defined $meta ? :
|
|
107
|
0 |
5 |
defined $our ? :
|
|
113
|
30 |
0 |
if ($meta->{$_}{'meta'} =~ /^(ACCESSOR|METHOD)$/)
|
|
114
|
24 |
6 |
if ($1 eq 'ACCESSOR')
|
|
116
|
11 |
13 |
if $meta->{$_}{'default'}
|
|
123
|
5 |
25 |
if $meta->{$_}{'predicate'}
|
|
126
|
8 |
22 |
if $meta->{$_}{'clearer'}
|
|
133
|
0 |
5 |
if ($class{'CURRENT'}{'BEGIN'}) { }
|
|
145
|
2 |
11 |
if (not defined $begin or ref $begin)
|
|
146
|
2 |
0 |
defined $begin ? :
|
|
150
|
2 |
9 |
if ((ref $mg || '') =~ /^(|HASH|ARRAY|SCALAR|CODE|GLOB)$/)
|
|
151
|
2 |
0 |
defined $mg ? :
|
|
155
|
2 |
7 |
if ((ref $export || '') ne 'HASH')
|
|
156
|
2 |
0 |
defined $export ? :
|
|
160
|
2 |
5 |
if ((ref $meta || '') ne 'HASH')
|
|
161
|
2 |
0 |
defined $meta ? :
|
|
185
|
2 |
51 |
if (not defined $name or ref $name)
|
|
186
|
2 |
0 |
defined $name ? :
|
|
190
|
2 |
49 |
if (not defined $type or ref $type)
|
|
191
|
2 |
0 |
defined $type ? :
|
|
195
|
2 |
47 |
if ((ref $export || '') ne 'HASH')
|
|
196
|
2 |
0 |
defined $export ? :
|
|
200
|
32 |
15 |
if (defined $now)
|
|
201
|
2 |
30 |
if (ref $now or not $now =~ /^[-+\d]\d*$/)
|
|
206
|
2 |
43 |
if (not defined $import or (ref $import || '') ne 'ARRAY')
|
|
207
|
2 |
0 |
defined $import ? :
|
|
214
|
20 |
23 |
if $now
|
|
225
|
2 |
5 |
if ((ref $mg || '') =~ /^(|HASH|ARRAY|SCALAR|CODE|GLOB)$/)
|
|
226
|
2 |
0 |
defined $mg ? :
|
|
251
|
30 |
0 |
wantarray ? :
|
|
273
|
2 |
30 |
if (not defined $name or ref $name)
|
|
274
|
2 |
0 |
defined $name ? :
|
|
278
|
2 |
28 |
if (not defined $private or ref $private)
|
|
279
|
2 |
0 |
defined $private ? :
|
|
283
|
2 |
26 |
if (not defined $type or ref $type)
|
|
284
|
2 |
0 |
defined $type ? :
|
|
288
|
2 |
24 |
if (not defined $trigger or ref $trigger)
|
|
289
|
2 |
0 |
defined $trigger ? :
|
|
319
|
24 |
0 |
unless $params[2]{$params[1]}{'pod'}
|
|
321
|
24 |
0 |
unless $params[2]{$params[1]}{'example'}
|
|
323
|
0 |
24 |
wantarray ? :
|
|
338
|
0 |
13 |
$name =~ /^(begin|unitcheck|check|init|end|new)$/ ? :
|
|
347
|
2 |
25 |
if (not defined $name or ref $name)
|
|
348
|
2 |
0 |
defined $name ? :
|
|
352
|
2 |
23 |
if (not defined $params or ref $params)
|
|
353
|
2 |
0 |
defined $params ? :
|
|
357
|
2 |
21 |
if (not defined $subtype or ref $subtype)
|
|
358
|
2 |
0 |
defined $subtype ? :
|
|
362
|
2 |
19 |
if (not defined $code or ref $code)
|
|
363
|
2 |
0 |
defined $code ? :
|
|
369
|
5 |
14 |
if $params
|
|
391
|
0 |
6 |
wantarray ? :
|
|
396
|
2 |
12 |
if ((ref $mg || '') =~ /^(|HASH|ARRAY|SCALAR|CODE|GLOB)$/)
|
|
397
|
2 |
0 |
defined $mg ? :
|
|
401
|
2 |
10 |
if (not defined $name or ref $name)
|
|
402
|
2 |
0 |
defined $name ? :
|
|
406
|
2 |
8 |
if ((ref $meta || '') ne 'HASH')
|
|
407
|
2 |
0 |
defined $meta ? :
|
|
428
|
2 |
9 |
if ((ref $mg || '') =~ /^(|HASH|ARRAY|SCALAR|CODE|GLOB)$/)
|
|
429
|
2 |
0 |
defined $mg ? :
|
|
433
|
2 |
7 |
if (not defined $name or ref $name)
|
|
434
|
2 |
0 |
defined $name ? :
|
|
438
|
2 |
5 |
if ((ref $meta || '') ne 'HASH')
|
|
439
|
2 |
0 |
defined $meta ? :
|
|
457
|
5 |
0 |
$meta->{$name}{'required'} || $meta->{$name}{'default'} ? :
|
|
465
|
2 |
33 |
if (not defined $name or ref $name)
|
|
466
|
2 |
0 |
defined $name ? :
|
|
470
|
2 |
31 |
if (not defined $param or ref $param)
|
|
471
|
2 |
0 |
defined $param ? :
|
|
475
|
2 |
29 |
if (defined $code)
|
|
476
|
2 |
0 |
if (ref $code)
|
|
483
|
0 |
0 |
$code =~ /^\w+$/ ? :
|
|
|
0 |
29 |
defined $code ? :
|
|
493
|
2 |
28 |
if (not defined $name or ref $name)
|
|
494
|
2 |
0 |
defined $name ? :
|
|
498
|
2 |
26 |
if (not defined $param or ref $param)
|
|
499
|
2 |
0 |
defined $param ? :
|
|
503
|
2 |
24 |
if (defined $code)
|
|
504
|
2 |
0 |
if (ref $code)
|
|
511
|
0 |
0 |
$code =~ /^\w+$/ ? :
|
|
|
0 |
0 |
$code =~ /^1$/ ? :
|
|
|
0 |
24 |
defined $code ? :
|
|
522
|
2 |
71 |
if (not defined $name or ref $name)
|
|
523
|
2 |
0 |
defined $name ? :
|
|
527
|
2 |
69 |
if ((ref $meta || '') ne 'HASH')
|
|
528
|
2 |
0 |
defined $meta ? :
|
|
532
|
37 |
32 |
if (defined $mod)
|
|
533
|
2 |
35 |
if (ref $mod)
|
|
538
|
37 |
30 |
if (defined $class)
|
|
539
|
2 |
35 |
if ((ref $class || '') ne 'HASH')
|
|
546
|
35 |
30 |
if ($class)
|
|
548
|
29 |
6 |
if ($meta->{'meta'} eq 'ACCESSOR') { }
|
|
|
6 |
0 |
elsif ($meta->{'meta'} eq 'METHOD') { }
|
|
558
|
8 |
21 |
$meta->{'private'} ? :
|
|
560
|
12 |
6 |
unless $meta->{'required'} or $meta->{'default'}
|
|
565
|
18 |
3 |
if (scalar @test_cases > 1)
|
|
569
|
18 |
0 |
unless ($meta->{'coerce'})
|
|
588
|
0 |
6 |
$meta->{'private'} ? :
|
|
617
|
2 |
63 |
if $meta->{'test'}
|