File Coverage

lib/CPAN/Audit/Discover.pm
Criterion Covered Total %
statement 12 22 54.5
branch 0 4 0.0
condition n/a
subroutine 4 6 66.6
pod 0 2 0.0
total 16 34 47.0


line stmt bran cond sub pod time code
1             package CPAN::Audit::Discover;
2 2     2   15 use strict;
  2         2  
  2         71  
3 2     2   9 use warnings;
  2         5  
  2         56  
4 2     2   752 use CPAN::Audit::Discover::Cpanfile;
  2         6  
  2         67  
5 2     2   765 use CPAN::Audit::Discover::CpanfileSnapshot;
  2         5  
  2         308  
6              
7             our $VERSION = "1.001";
8              
9             sub new {
10 0     0 0   my $class = shift;
11              
12 0           my $self = {};
13 0           bless $self, $class;
14              
15 0           return $self;
16             }
17              
18             sub discover {
19 0     0 0   my $self = shift;
20 0           my ($path) = @_;
21              
22 0 0         if ( -f "$path/cpanfile.snapshot" ) {
    0          
23 0           return CPAN::Audit::Discover::CpanfileSnapshot->new->discover("$path/cpanfile.snapshot");
24             }
25             elsif ( -f "$path/cpanfile" ) {
26 0           return CPAN::Audit::Discover::Cpanfile->new->discover("$path/cpanfile");
27             }
28             else {
29             }
30              
31 0           return;
32             }
33              
34             1;