Branch Coverage

blib/lib/Opendata/GTFS/Feed.pm
Criterion Covered Total %
branch 34 64 53.1


line true false branch
75 0 94 if @_ != 1
94 0 $#_ >= 0 ? :
80 0 47 if @_ != 1
47 0 $#_ >= 0 ? :
106 2 0 @_ ? :
0 2 if @_ < 1
2 0 $#_ >= 0 ? :
2 0 $#_ >= 1 ? :
108 0 2 unless (exists $args{'directory'})
112 0 2 if (exists $args{'file'}) { }
1 1 elsif (exists $args{'url'}) { }
113 0 0 if (path($args{'file'})->exists) { }
116 0 0 unless $x->extract('to', $args{'directory'}->stringify)
124 0 1 if $@
128 0 1 unless $$response{'success'}
133 0 1 if index($filename, '.') == -1
138 0 1 unless $x->extract('to', $args{'directory'}->stringify)
143 2 0 @_ ? :
150 1 23 unless ($self->directory->child($filename)->exists)
151 1 0 unless $is_required
160 23 0 @_ ? :
0 23 if @_ != 2
23 0 $#_ >= 0 ? :
23 0 $#_ >= 1 ? :
169 0 23 unless (defined $column_names)
176 1 22 if ($type->name eq 'StopTime' and &any(sub { $_ eq 'drop_off_time'; } , @column_names))
179 1 0 if $index >= 0
185 1 152 if $csv->eof and not defined $line
186 0 152 unless defined $line
187 0 0 if scalar @{$line;} == 1 and !defined($$line[0]) || $$line[0] eq ''
192 22 130 if $csv->eof
195 0 23 unless close $fh