blib/lib/Tie/Handle/Argv.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 12 | 12 | 100.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
23 | 36 | 2 | 1 | defined $args{'filename'} and ref $args{'filename'} ne 'SCALAR' |
25 | 35 | 2 | 1 | defined $args{'files'} and ref $args{'files'} ne 'ARRAY' |
138 | 1 | 231 | 14 | @_ and $_[0] == 2 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
77 | 77 | 36 | 2 | defined $self->{'__lineno'} or @{defined $self->{'__a_argv'} ? $self->{'__a_argv'} : \@ARGV;} |