X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=Koha%2FSimpleMARC.pm;h=a501a9441f3d0edb3d2dfb34397c7ffc436125b4;hb=9d6d641d1f8b77271800f43bc027b651f9aea52b;hp=995e39212377cecb02486fcdbd9d22f4b36639a6;hpb=af7e41d1142573666d302a8475274ea58e5c99f4;p=srvgit diff --git a/Koha/SimpleMARC.pm b/Koha/SimpleMARC.pm index 995e392123..a501a9441f 100644 --- a/Koha/SimpleMARC.pm +++ b/Koha/SimpleMARC.pm @@ -18,29 +18,23 @@ package Koha::SimpleMARC; use Modern::Perl; -#use MARC::Record; - -require Exporter; - -our @ISA = qw(Exporter); -our %EXPORT_TAGS = ( 'all' => [ qw( - -) ] ); - -our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); - -our @EXPORT = qw( - read_field - add_field - update_field - copy_field - copy_and_replace_field - move_field - delete_field - field_exists - field_equals -); - +our (@ISA, @EXPORT_OK); +BEGIN { + require Exporter; + our @ISA = qw(Exporter); + + @EXPORT_OK = qw( + read_field + add_field + update_field + copy_field + copy_and_replace_field + move_field + delete_field + field_exists + field_equals + ); +} =head1 NAME