Revision history for Equinox-Migration
-1.000 2009-03-17
- First version, E::M::STL
+2009-05-07 MDMP 1.000 & MS 1.000
+
+2009-04-30 SM 1.004
+
+ * single-chunk tokens being quoted is ok now
+ * misc other fixes
+
+2009-04-27 SM 1.003
+
+ * mods now returns *all* mods with no argument
+
+2009-04-27 STL 1.001
+
+ * generate now takes 2 arguments: a filename or string, and any true
+ value if the first argument is a string, to indicate that fact
+
+2009-04-25 SM 1.002
+
+ * mods should return undef when there are no *mods* as well as when
+ there is no mapping *at all*
+
+ * mods returns a hashref
+
+2009-04-14 SM 1.001
+
+ * added tags, subfields methods
+
+2009-03-17 1.000
+ First version, E::M::STL
MANIFEST
Makefile.PL
README
-lib/Equinox/Migration.pm
lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
lib/Equinox/Migration/MARCXMLSampler.pm
+lib/Equinox/Migration/SimpleTagList.pm
lib/Equinox/Migration/SubfieldMapper.pm
-lib/Equinox/Migration/SubfieldMapper.pm
-t/00-load.t
t/01-SimpleTagList.t
t/02-SubfieldMapper.t
t/03-MapDrivenMARCXMLProc.t
WriteMakefile(
NAME => 'Equinox::Migration',
AUTHOR => 'Shawn Boyette <sboyette@esilibrary.com>',
- VERSION_FROM => 'lib/Equinox/Migration.pm',
- ABSTRACT_FROM => 'lib/Equinox/Migration.pm',
PL_FILES => {},
PREREQ_PM => {
'Test::More' => 0,
+++ /dev/null
-package Equinox::Migration;
-
-use warnings;
-use strict;
-
-=head1 NAME
-
-Equinox::Migration - The great new Equinox::Migration!
-
-=head1 VERSION
-
-Version 0.01
-
-=cut
-
-our $VERSION = '0.01';
-
-
-=head1 SYNOPSIS
-
-Quick summary of what the module does.
-
-Perhaps a little code snippet.
-
- use Equinox::Migration;
-
- my $foo = Equinox::Migration->new();
- ...
-
-=head1 AUTHOR
-
-Shawn Boyette, C<< <sboyette at esilibrary.com> >>
-
-=head1 BUGS
-
-Please report any bugs or feature requests to C<bug-equinox-migration at rt.cpan.org>, or through
-the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Equinox-Migration>. I will be notified, and then you'll
-automatically be notified of progress on your bug as I make changes.
-
-
-
-
-=head1 SUPPORT
-
-You can find documentation for this module with the perldoc command.
-
- perldoc Equinox::Migration
-
-
-You can also look for information at:
-
-=over 4
-
-=item * RT: CPAN's request tracker
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Equinox-Migration>
-
-=item * AnnoCPAN: Annotated CPAN documentation
-
-L<http://annocpan.org/dist/Equinox-Migration>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Equinox-Migration>
-
-=item * Search CPAN
-
-L<http://search.cpan.org/dist/Equinox-Migration>
-
-=back
-
-
-=head1 ACKNOWLEDGEMENTS
-
-
-=head1 COPYRIGHT & LICENSE
-
-Copyright 2009 Shawn Boyette, all rights reserved.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-
-=cut
-
-1; # End of Equinox::Migration
use strict;
use XML::Twig;
-use Equinox::Migration::SubfieldMapper 1.003;
+use Equinox::Migration::SubfieldMapper 1.004;
=head1 NAME
+++ /dev/null
-#!perl -T
-
-use Test::More tests => 1;
-
-BEGIN {
- use_ok( 'Equinox::Migration' );
-}
-
-diag( "Testing Equinox::Migration $Equinox::Migration::VERSION, Perl $], $^X" );
use Equinox::Migration::MapDrivenMARCXMLProc;
use Equinox::Migration::MARCXMLSampler;
+my $VERSION = '1.000';
my $c = initialize();
$| = 1;
'map=s',
'holdings|h=i',
'prefix|p=s',
+ 'version|v',
'help',
);
show_help() unless $rc;
show_help() if ($c->{help});
show_help("map and holdings must be specified together!")
if ($c->{map} and !$c->{holdings});
+ show_version() if $c->{version};
my @keys = keys %{$c};
for my $key ('prefix')
HELP
exit;
}
+
+sub show_version { print "extract_holdings v$VERSION\n"; exit }