File Coverage

lib/CPAN/Audit/Discover/CpanfileSnapshot.pm

Criterion	Covered	Total	%
statement	9	24	37.5
branch	0	8	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	0	2	0.0
total	12	42	28.5

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

our $VERSION = "1.001";

sub new {
	my $class = shift;

	my $self = {};
	bless $self, $class;

	return $self;
}

sub discover {
	my $self = shift;
	my ($cpanfile_snapshot_path) = @_;

	open my $fh, '<', $cpanfile_snapshot_path or die $!;

	my @deps;
	while ( defined( my $line = <$fh> ) ) {
		if ( $line =~ m/pathname: ([^\s]+)/ ) {
			next unless my $d = CPAN::DistnameInfo->new($1);

			next unless $d->dist && $d->version;

			push @deps,
				{
				dist    => $d->dist,
				version => $d->version,
				};
		}
	}

	close $fh;

	return @deps;
}

1;