NAME

MARC::Moose::Reader::File::Isis - A file reader for ISIS (DOS) encoded records

VERSION

version 0.019

DESCRIPTION

Read next available MARC::Moose::Record from reader file using MARC::Moose::Parser::Isis parser.

ATTRIBUTES

parser

By default, use MARC::Moose::Parser::Isis to read MARC::Moose::Record records from a file.

has '+parser' => ( default => sub { MARC::Moose::Parser::Isis->new() } );

override 'read' => sub { my $self = shift;

    $self->SUPER::read();

    my $fh = $self->fh;
    my $raw;
    while ( <$fh> ) {
        s/\x0a|\x0d//g;
        $raw .= $_;
        last if /\x1d/; # End of record separator
    }
    return 0 unless $raw;

    return $self->parser->parse( $raw );
};

__PACKAGE__->meta->make_immutable;

1;

SEE ALSO

• MARC::Moose

• MARC::Moose::Reader::File

• MARC::Moose::Parser::Isis

AUTHOR

Frédéric Demians <f.demians@tamil.fr>

COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Frédéric Demians.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.