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

package CPAN::Audit::Discover;
use strict;
use warnings;
use CPAN::Audit::Discover::Cpanfile;
use CPAN::Audit::Discover::CpanfileSnapshot;

our $VERSION = "1.001";

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;