NAME

MARC::File::MicroLIF - MicroLIF-specific file handling

SYNOPSIS

    use MARC::File::MicroLIF;

    my $file = MARC::File::MicroLIF->in( $filename );
    
    while ( my $marc = $file->next() ) {
        # Do something
    }
    $file->close();
    undef $file;

EXPORT

None.

METHODS

Gets the next chunk of data. If $want_line is true then you get the next chunk ending with any combination of \r and \n of any length. If it is false or not passed then you get the next chunk ending with \x60 followed by any combination of \r and \n of any length.

All trailing \r and \n are stripped.

header()

If the MicroLIF file has a file header then the header is returned. If the file has no header or the file has not yet been opened then undef is returned.

TODO

RELATED MODULES

MARC::File

LICENSE

This code may be distributed under the same terms as Perl itself.

Please note that these modules are not products of or supported by the employers of the various contributors to the code.

AUTHOR

Andy Lester, <andy@petdance.com>