| line |
l |
!l&&r |
!l&&!r |
condition |
|
14
|
0 |
2 |
0 |
ref $class || $class |
|
15
|
1 |
1 |
0 |
$_NEW{$CLASS} //= do {
my(%seen, @new, @build);
my(@possible) = $CLASS;
while (@possible) {
my $c = shift @possible;
no strict 'refs';
push @new, $c . '::_NEW' if exists &{$c . '::_NEW';};
push @build, $c . '::BUILD' if exists &{$c . '::BUILD';};
++$seen{$c};
if (exists &{$c . '::DOES';}) {
push @possible, grep({not $seen{$_}++;} $c->DOES("*"));
} ;
push @possible, grep({not $seen{$_}++;} @{$c . '::ISA';});
} ;
[[reverse(@new)], [reverse(@build)]]
} |
|
55
|
1 |
1 |
0 |
$_[0]{'auto'} //= $OptArgs2::Pager::_FIELDS->{'auto'}{'default'} |
|
59
|
0 |
0 |
0 |
$_[0]{'encoding'} //= $OptArgs2::Pager::_FIELDS->{'encoding'}{'default'} |
|
64
|
32 |
2 |
0 |
$_[0]{'fh'} //= $OptArgs2::Pager::_FIELDS->{'fh'}{'default'}->($_[0]) |
|
69
|
14 |
2 |
0 |
$_[0]{'orig_fh'} //= $OptArgs2::Pager::_FIELDS->{'orig_fh'}{'default'}->($_[0]) |
|
74
|
0 |
0 |
0 |
$_[0]{'pager'} //= $OptArgs2::Pager::_FIELDS->{'pager'}{'default'}->($_[0]) |
|
176
|
2 |
1 |
0 |
$pager //= __PACKAGE__->new(@_) |
|
191
|
2 |
0 |
0 |
$pager //= __PACKAGE__->new(@_, "auto", 0) |