33 lines
604 B
Perl
33 lines
604 B
Perl
package CPAN::Audit::Discover;
|
|
use strict;
|
|
use warnings;
|
|
use CPAN::Audit::Discover::Cpanfile;
|
|
use CPAN::Audit::Discover::CpanfileSnapshot;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
|
|
my $self = {};
|
|
bless $self, $class;
|
|
|
|
return $self;
|
|
}
|
|
|
|
sub discover {
|
|
my $self = shift;
|
|
my ($path) = @_;
|
|
|
|
if ( -f "$path/cpanfile.snapshot" ) {
|
|
return CPAN::Audit::Discover::CpanfileSnapshot->new->discover("$path/cpanfile.snapshot");
|
|
}
|
|
elsif ( -f "$path/cpanfile" ) {
|
|
return CPAN::Audit::Discover::Cpanfile->new->discover("$path/cpanfile");
|
|
}
|
|
else {
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
1;
|