view release on metacpan or  search on metacpan

lib/File/Kvpar.pm  view on Meta::CPAN

        elsif (/^(\S+) (.*)$/) {
            $hash{$1} = $2;
        }
    }
    return \%hash;
}

sub _read_one {
    my ($self) = @_;
    my $fh = $self->{'fh'};
    local $/ = '';
    my $elems = $self->{'elements'};
    if (my $par = <$fh>) {
        $self->{'pos'}++;
        my $hash = _par2hash($par);
        push @{ $elems }, $hash;
        $self->{'have_read'} |= HEAD;
        return $hash;
    }
    else {
        $self->{'have_read'} |= TAIL;