Branch Coverage

blib/lib/Tie/Handle/Argv.pm
Criterion Covered Total %
branch 58 58 100.0


line true false branch
18 1 40 if @_ % 2
21 1 43 unless $TIEHANDLE_KNOWN_ARGS{$_}
23 1 38 if defined $args{'filename'} and ref $args{'filename'} ne "SCALAR"
25 1 37 if defined $args{'files'} and ref $args{'files'} ne "ARRAY"
28 2 33 $args{'debug'} ? :
2 35 ref $args{'debug'} ? :
36 543 7 unless $self->{'__debug'}
37 1 6 unless @_
47 1 89 unless @_ == 1
50 81 8 if ($keep_lineno) { }
61 1 2 defined $self->{'__a_argv'} ? :
69 4 78 defined $self->{'__s_argv'} ? :
70 4 78 defined $self->{'__a_argv'} ? :
76 1 115 if @_
77 2 36 defined $self->{'__a_argv'} ? :
2 36 unless (defined $self->{'__lineno'} or @{defined $self->{'__a_argv'} ? $self->{'__a_argv'} : \@ARGV;})
84 81 38 if defined $self->{'__lineno'}
85 6 113 defined $self->{'__a_argv'} ? :
37 82 unless (@{defined $self->{'__a_argv'} ? $self->{'__a_argv'} : \@ARGV;})
87 35 2 unless $peek
94 77 4 if ($self->OPEN($fn)) { }
95 37 40 unless defined $self->{'__lineno'}
111 4 142 wantarray ? :
116 35 71 unless $self->_advance
119 1 123 unless defined $line
122 109 14 unless wantarray
125 4 141 wantarray ? :
138 14 232 if (@_ and $_[0] == 2)
141 2 6 unless ($self->_advance("peek"))