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.1 2003-10-08 18:24:25 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.1 $ =~ /(\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) = @_;
- $translator->{'schema'} = Storable::thaw($data)
- if defined($data);
-
- $translator->{'schema'} = Storable::retrieve($translator->filename)
- if defined($translator->filename);
+ if (defined($data)) {
+ $translator->{'schema'} = Storable::thaw($data);
+ return 1;
+ } elsif (defined($translator->filename)) {
+ $translator->{'schema'} = Storable::retrieve($translator->filename);
+ return 1;
+ }
- return 1;
+ return 0;
}
1;
=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