package PAUSE::Permissions::ModuleIterator;
$PAUSE::Permissions::ModuleIterator::VERSION = '0.17';
use strict;
use warnings;
use 5.10.0;
use Moo;
use PAUSE::Permissions::Module;
use autodie;
use feature 'state';
has 'permissions' =>
    (
        is      => 'ro',
        # isa     => 'PAUSE::Permissions',
    );
has _fh          => (is => 'rw');
has _cached_line => (is => 'rw', clearer => '_clear_cached_line');
sub next_module
{
    my $self        = shift;
    my $line;
    my $current_module;
    my $fh;
    if (not defined $self->_fh) {
        $fh = $self->permissions->open_file();
        my $inheader = 1;
        # Skip the header block at the top of the file
        while (<$fh>) {
            last if /^$/;
        }
        $self->_fh($fh);
    }
    else {
        $fh = $self->_fh;
    }
    my $perms = {};
    while (1) {
        if (defined $self->_cached_line) {
            $line = $self->_cached_line;
            $self->_clear_cached_line();
        } else {
            $line = <$fh>;
        }
        if (defined($line)) {
            $line =~ s/[\r\n]+$//;
            my ($module, $user, $permission) = split(/,/, $line);
            $user = uc($user);
            if (defined($current_module) && $module ne $current_module) {
                $self->_cached_line($line);
                my $module_name = $current_module;
                $current_module = undef;
                return $self->_new_module($module_name, $perms);
            }
            $current_module = $module;
            push(@{ $perms->{ $permission } }, $user);
        } elsif (defined $current_module) {
            return $self->_new_module($current_module, $perms);
        } else {
            return undef;
        }
    }
}
sub _new_module
{
    my $self        = shift;
    my $module_name = shift;
    my $perms       = shift;
    my @args        = (name => $module_name);
    push(@args, m => $perms->{m}->[0]) if exists($perms->{m});
    push(@args, f => $perms->{f}->[0]) if exists($perms->{f});
    push(@args, c => $perms->{c})      if exists($perms->{c});
    return PAUSE::Permissions::Module->new(@args);
}
1;