package MARC::Moose; { $MARC::Moose::VERSION = '0.026'; } # ABSTRACT: Moose based MARC records set of tools use Moose 1.00; use Carp; __PACKAGE__->meta->make_immutable; 1; __END__ =pod =encoding UTF-8 =head1 NAME MARC::Moose - Moose based MARC records set of tools =head1 VERSION version 0.026 =head1 DESCRIPTION =head1 SYNOPSYS use MARC::Moose::Record; use MARC::Moose::Reader::File::Iso2709; my $reader = MARC::Moose::Reader::File::Iso2709->new( file => 'biblio.iso', ); while ( my $record = $reader->read() ) { # Remove some fields $record->fields([ grep { not $_->tag ~~ [qw(001 009 039 917 930 955)] } @{$record->fields} ]); # Clean some subfields for my $field ( @{$record->fields} ) { next unless $field->tag ~~ [qw(410 461 600 606 607 608)]; $field->subf([ grep { not $_->[0] =~ /0|2|3|9/ } @{$field->subf} ]); } print $formater->format( $record ); } =head1 WARNINGS MARC records are expected to be UTF-8 encoded. It won't work if it isn't. Parsed records MUST be UTF-8. If you don't have UTF-8 records, write a specific reader or use a generic tool like yaz-marcdump before loading records. =head1 SEE ALSO =over 4 =item * L<MARC::Moose> =item * L<MARC::Moose::Record> =item * L<MARC::Moose::Field> =item * L<MARC::Moose::Field::Std> =item * L<MARC::Moose::Field::Control> =item * L<MARC::Moose::Reader> =item * L<MARC::Moose::Reader::File> =item * L<MARC::Moose::Reader::File::Iso2709> =item * L<MARC::Moose::Reader::File::Marcxml> =item * L<MARC::Moose::Reader::File::Isis> =item * L<MARC::Moose::Writer> =item * L<MARC::Moose::Writer:File> =item * L<MARC::Moose::Parser> =item * L<MARC::Moose::Parser::Iso2709> =item * L<MARC::Moose::Parser::Marcxml> =item * L<MARC::Moose::Parser::MarcxmlSax> =item * L<MARC::Moose::Parser::Isis> =item * L<MARC::Moose::Formater> =item * L<MARC::Moose::Formater::Iso2709> =item * L<MARC::Moose::Formater::Marcxml> =item * L<MARC::Moose::Formater::Text> =item * L<MARC::Moose::Formater::Yaml> =back =head1 AUTHOR Frédéric Demians <f.demians@tamil.fr> =head1 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. =cut