1 package SQL::Translator::Parser::Storable;
5 SQL::Translator::Parser::Storable - parser for Schema objects serialized
6 with the Storable module
12 my $translator = SQL::Translator->new;
13 $translator->parser('Storable');
17 Slurps in a Schema from a Storable file on disk. You can then turn
18 the data into a database tables or graphs.
23 use vars qw($DEBUG $VERSION @EXPORT_OK);
24 $DEBUG = 0 unless defined $DEBUG;
29 use SQL::Translator::Utils qw(debug normalize_name);
31 use base qw(Exporter);
33 @EXPORT_OK = qw(parse);
36 my ($translator, $data) = @_;
39 $translator->{'schema'} = Storable::thaw($data);
41 } elsif (defined($translator->filename)) {
42 $translator->{'schema'} = Storable::retrieve($translator->filename);
51 # -------------------------------------------------------------------
61 Paul Harrington E<lt>harringp@deshaw.comE<gt>.