package SQL::Translator::Parser::Storable;
-# $Source: /home/faga/work/sqlfairy_svn/sqlfairy-cvsbackup/sqlfairy/lib/SQL/Translator/Parser/Storable.pm,v $
-# $Id: Storable.pm,v 1.2 2003-10-08 20:35:52 phrrngtn Exp $
-
=head1 NAME
-SQL::Translator::Parser::Storable - null parser for Schema objects that have already been created.
+SQL::Translator::Parser::Storable - parser for Schema objects serialized
+ with the Storable module
=head1 SYNOPSIS
use SQL::Translator;
- use SQL::Translator::Parser::Storable;
my $translator = SQL::Translator->new;
- $translator->parser("SQL::Translator::Parser::Storable");
+ $translator->parser('Storable');
=head1 DESCRIPTION
=cut
use strict;
-use vars qw($DEBUG $VERSION @EXPORT_OK);
+use warnings;
+our $VERSION = '1.59';
+
+our $DEBUG;
$DEBUG = 0 unless defined $DEBUG;
-$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
use Storable;
-use Exporter;
use SQL::Translator::Utils qw(debug normalize_name);
use base qw(Exporter);
-
-@EXPORT_OK = qw(parse);
+our @EXPORT_OK = qw(parse);
sub parse {
my ($translator, $data) = @_;
=head1 SEE ALSO
-SQL::Translator::Parser::Excel;
+SQL::Translator.
-=head1 AUTHORS
+=head1 AUTHOR
-Paul Harrington <harringp@deshaw.com>
+Paul Harrington E<lt>harringp@deshaw.comE<gt>.
=cut