lib/SQL/Translator/Parser/Storable.pm

   1 package SQL::Translator::Parser::Storable;
   2
   3 =head1 NAME
   4
   5 SQL::Translator::Parser::Storable - parser for Schema objects serialized
   6     with the Storable module
   7
   8 =head1 SYNOPSIS
   9
  10   use SQL::Translator;
  11
  12   my $translator = SQL::Translator->new;
  13   $translator->parser('Storable');
  14
  15 =head1 DESCRIPTION
  16
  17 Slurps in a Schema from a Storable file on disk.  You can then turn
  18 the data into a database tables or graphs.
  19
  20 =cut
  21
  22 use strict;
  23 use warnings;
  24 our $VERSION = '1.59';
  25
  26 our $DEBUG;
  27 $DEBUG = 0 unless defined $DEBUG;
  28
  29 use Storable;
  30 use SQL::Translator::Utils qw(debug normalize_name);
  31
  32 use base qw(Exporter);
  33 our @EXPORT_OK = qw(parse);
  34
  35 sub parse {
  36     my ($translator, $data) = @_;
  37
  38     if (defined($data)) {
  39         $translator->{'schema'} = Storable::thaw($data);
  40         return 1;
  41     } elsif (defined($translator->filename)) {
  42         $translator->{'schema'} = Storable::retrieve($translator->filename);
  43         return 1;
  44     }
  45
  46     return 0;
  47 }
  48
  49 1;
  50
  51 =pod
  52
  53 =head1 SEE ALSO
  54
  55 SQL::Translator.
  56
  57 =head1 AUTHOR
  58
  59 Paul Harrington E<lt>harringp@deshaw.comE<gt>.
  60
  61 =cut