line |
l |
!l&&r |
!l&&!r |
condition |
50
|
2 |
0 |
38 |
ref $thing eq 'GLOB' or &Scalar::Util::blessed($thing) and $thing->can('getline') |
267
|
5267 |
0 |
52 |
<$first_fh> || do {
my($self) = @_;
my $filehandles = $$self{'filehandles'};
while (@$filehandles) {
my $line = $$filehandles[0]->getline;
return $line if $line;
shift @$filehandles;
shift @{$$self{'filethings'};};
};
return
} |
295
|
1097 |
0 |
4003 |
@$ids or @$parents |
|
1977 |
0 |
2026 |
@$ids or @$parents or @$derives |
315
|
864 |
0 |
206 |
@$parents or @$derives |
334
|
3 |
0 |
0 |
$container_attributes{$attrname} || lc $attrname |
351
|
2859 |
0 |
0 |
$container_attributes{$attrname} || lc $attrname |
|
20 |
2859 |
0 |
$pname ||= $container_attributes{$attrname} || lc $attrname |