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.
24 use vars qw($DEBUG $VERSION @EXPORT_OK);
25 $DEBUG = 0 unless defined $DEBUG;
30 use SQL::Translator::Utils qw(debug normalize_name);
32 use base qw(Exporter);
34 @EXPORT_OK = qw(parse);
37 my ($translator, $data) = @_;
40 $translator->{'schema'} = Storable::thaw($data);
42 } elsif (defined($translator->filename)) {
43 $translator->{'schema'} = Storable::retrieve($translator->filename);
60 Paul Harrington E<lt>harringp@deshaw.comE<gt>.