File Coverage

blib/lib/CPAN/Releases/Latest/ReleaseIterator.pm

Criterion	Covered	Total	%
statement	15	22	68.1
branch	1	4	25.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	21	32	65.6

package CPAN::Releases::Latest::ReleaseIterator;
$CPAN::Releases::Latest::ReleaseIterator::VERSION = '0.07';
use 5.006;
use Moo;
use CPAN::Releases::Latest;
use CPAN::Releases::Latest::Release;

has 'latest' =>
    (
        is      => 'ro',
        default => sub { CPAN::Releases::Latest->new() },
    );

has _fh => (is => 'rw');

sub next_release
{
    my $self = shift;
    my $fh;

    if (not defined($fh = $self->_fh)) {
        $fh = $self->latest->_open_file();
        $self->_fh($fh);
    }

    my $line = <$fh>;
    if (defined($line)) {
        chomp($line);
        my ($distname, $path, $time, $size) = split(/\s+/, $line);
        return CPAN::Releases::Latest::Release->new(
                   distname  => $distname,
                   path      => $path,
                   timestamp => $time,
                   size      => $size,
               );
    }
    else {
        return undef;
    }

}

1;