Select Code to Download

package RecordParser::FixedWidth;

# constructor takes the name of the source file
sub new {
    my ( $class, $source ) = @_;

    my $template;
    my @fields;
    my @column_specs = lookup_specs($source);
...
        push @fields, $field;
    }
    open my $reader, '<', $source;

    my $obj = {
        IO         => $reader,
        template   => $template,
...
    };
    bless $obj => $class;
}

sub next {
    my ( $self ) = @_;
    my ($reader, $template, $fields_ref) 
...

    my $record = <$reader>;
    return unless defined $record;

    my %value_of;
    my @values = unpack($template, $record);
    @value_of{@fields} = @values;

    return \%value_of;
}