| line |
true |
false |
branch |
|
65
|
24 |
0 |
if (bless({}, $class)->isa('OOP::Perlish::Class')) |
|
69
|
24 |
0 |
unless @tags |
|
81
|
0 |
0 |
if ($tag =~ / ^ \Q$setter_tag\E $ /gmsx) |
|
83
|
0 |
0 |
if (bless({}, $class)->can($static_method)) |
|
103
|
0 |
0 |
ref $opts[0] eq 'HASH' ? : |
|
|
145 |
0 |
scalar @opts % 2 == 0 ? : |
|
|
0 |
145 |
@opts == 1 ? : |
|
241
|
0 |
0 |
if ($self->_emitlevel >= 0) |
|
242
|
0 |
0 |
defined $_ ? : |
|
285
|
7 |
0 |
if (@msgs) { } |
|
286
|
7 |
0 |
if ($self->_emitlevel >= $level) |
|
287
|
7 |
0 |
defined $_ ? : |
|
313
|
29 |
142 |
unless (exists $____oop_perlish_class_all_methods{$class}) |
|
323
|
2790 |
576 |
if bless({}, $class)->can($symbol) |
|
352
|
146 |
247 |
unless exists $$self{'____isa_hash'} |
|
353
|
147 |
246 |
unless exists $$self{'____isa_hash'}{$class} and defined $$self{'____isa_hash'}{$class} |
|
371
|
58 |
2 |
if ($parent_class->can($method)) |
|
375
|
0 |
58 |
if (*{$sub;}{'CODE'}) |
|
392
|
0 |
0 |
if ($self->can($name)) |
|
407
|
14 |
0 |
if ref $self |
|
411
|
14 |
0 |
ref $self ? : |
|
413
|
7 |
7 |
if ($level) |
|
414
|
0 |
7 |
if ($level =~ /\D/) |
|
425
|
0 |
0 |
if (exists $level_map{lc $level}) { } |
|
433
|
0 |
7 |
unless $level =~ /^\d+$/ |
|
496
|
0 |
0 |
if bless({}, $_)->isa($class) |
|
512
|
55 |
55 |
if @values |
|
548
|
4 |
866 |
unless defined $____OOP_PERLISH_CLASS_ACCESSORS |
|
549
|
33 |
837 |
unless exists $$____OOP_PERLISH_CLASS_ACCESSORS{$class} |
|
562
|
6 |
18 |
unless defined $____OOP_PERLISH_CLASS_DERIVED_CLASSES |
|
577
|
4 |
556 |
unless defined $____OOP_PERLISH_CLASS_REQUIRED_FIELDS |
|
578
|
32 |
528 |
unless exists $$____OOP_PERLISH_CLASS_REQUIRED_FIELDS{$class} |
|
592
|
4 |
141 |
if (exists $magic{'return'}) |
|
594
|
0 |
4 |
if scalar @ret > 1 |
|
606
|
0 |
134 |
unless $self->_preinit |
|
608
|
0 |
129 |
unless $self->_init |
|
638
|
6 |
11249 |
if (/^_magic_constructor_arg_handler/) |
|
641
|
4 |
2 |
if $key and $value |
|
659
|
4 |
0 |
unless exists $$self{'____oop_perlish_class_opts'}{$_} or exists $self->____OOP_PERLISH_CLASS_ACCESSORS->{$_} and $self->____OOP_PERLISH_CLASS_ACCESSORS->{$_}->default_is_set |
|
679
|
31 |
19 |
if (scalar keys %{$self->____OOP_PERLISH_CLASS_ACCESSORS;}) |
|
688
|
144 |
2 |
if ($parent_class and bless({}, $parent_class)->can('____OOP_PERLISH_CLASS_ACCESSORS')) |
|
690
|
8 |
80 |
unless exists $top_accessors{$k} |
|
708
|
0 |
0 |
if $parent_class eq 'OOP::Perlish::Class' |
|
711
|
0 |
0 |
if ($tclass->isa('OOP::Perlish::Class')) { } |
|
|
0 |
0 |
elsif ($tclass->can('new')) { } |
|
718
|
0 |
0 |
if ($this and $this->isa('HASH')) |
|
720
|
0 |
0 |
unless exists $$self{$key} |
|
722
|
0 |
0 |
if (exists $$this{'___fields'}) |
|
724
|
0 |
0 |
unless exists $$self{'___fields'}{$key} |
|
741
|
140 |
404 |
unless (defined $$self{'____oop_perlish_class_required_fields'}) |
|
748
|
17 |
44 |
if $field->required |
|
755
|
322 |
2 |
if (bless({}, $parent_class)->can('____OOP_PERLISH_CLASS_REQUIRED_FIELDS')) |
|
776
|
193 |
0 |
if exists $$self{'____oop_perlish_class_opts'}{$method} and defined $$self{'____oop_perlish_class_opts'}{$method} |
|
778
|
1 |
191 |
unless $self->$method or $self->is_set($method) |
|
801
|
107 |
0 |
if $self->can($method) |
|
809
|
107 |
0 |
if $self->can($method) |