File Coverage

blib/lib/PAUSE/Users/UserIterator.pm

Criterion	Covered	Total	%
statement	46	46	100.0
branch	14	14	100.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	68	69	98.5

package PAUSE::Users::UserIterator;
$PAUSE::Users::UserIterator::VERSION = '0.11';
use strict;
use warnings;
use 5.14.0;

use Moo;
use PAUSE::Users::User;
use autodie;
use feature 'unicode_strings';

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

sub next_user
{
    my $self = shift;
    my @fields;
    my $inuser;
    my $fh;
    local $_;

    if (not defined $self->_fh) {
        $fh = $self->users->open_file();
        $self->_fh($fh);
    }
    else {
        $fh = $self->_fh;
    }

    $inuser = 0;
    LINE:
    while (<$fh>) {

        if (m!!) {
            $inuser = 1;
            next LINE;
        }

        next LINE unless $inuser;

        if (m!<([a-zA-Z0-6_]+)>(.*?)!) {
            my ($field, $value) = ($1, $2);

            # author specified a user account
            # list is a mailing list; we skip those
            if ($field eq 'type') {
                $inuser = 0 if $value eq 'list';
                next LINE;
            }

            push(@fields, $field => $value);
        }

        if (m!!) {
            my $user = PAUSE::Users::User->new(@fields);
            @fields  = ();
            return $user;
        }

    }
    close($fh);
    return undef;
}

1;