Branch Coverage

lib/App/cpanoutdated/fresh.pm
Criterion Covered Total %
branch 21 56 37.5


line true false branch
40 2 1 if ($self->has_ua)
43 1 2 if ($self->trace)
62 1 5 if $self->age =~ /\A\d+([.]\d+)?\z/msx
63 4 1 if (my($time, $multiplier) = $self->age =~ /\A(\d+)([[:alpha:]]+)\z/msx)
64 2 2 unless (exists $$table{$multiplier})
92 0 0 if (not $self->developer or $self->authorized)
96 0 0 unless ($self->developer)
99 0 0 if ($self->authorized)
122 0 0 if (not $self->_sort) { }
133 1 1 unless $$module{'indexed'} and $$module{'authorized'} and $$module{'version'}
139 0 1 unless $file
142 0 1 unless $mm
146 0 1 if ($mm->version >= $v)
162 0 0 unless (exists $$self{'stash_cache'})
167 0 0 unless $scroll_result
170 0 0 if ($self->all_versions)
175 0 0 if exists $$stash_cache{$cache_key}
176 0 0 if not $self->developer and 'developer' eq $$data_hash{'maturity'}
178 0 0 if $$data_hash{'path'} =~ m[\Ax?t/]msx
179 0 0 unless $$data_hash{'path'} =~ /[.]pm\z/msx
180 0 0 unless $$data_hash{'module'}
181 0 0 unless @{$$data_hash{'module'};}
184 0 0 unless $fresh_data
213 1 1 if ($value)
221 1 1 if ($value) { }
230 0 6 unless (&Getopt::Long::GetOptions('age|a=s', sub { my(undef, $value) = @_; $$defaults{'age'} = $value; } , 'develop|devel|dev!', sub { my(undef, $value) = @_; if ($value) { $$defaults{'developer'} = 1; return; } ; $$defaults{'developer'} = undef; } , 'authorized|authed!', sub { my(undef, $value) = @_; if ($value) { $$defaults{'authorized'} = 1; } else { $$defaults{'authorized'} = undef; } ; } , 'help|h|?', \$help, 'man', \$man))
231 0 6 if ($help or $man)
232 0 0 if ($help)