package SQL::Translator::Producer::Storable;
-# $Source: /home/faga/work/sqlfairy_svn/sqlfairy-cvsbackup/sqlfairy/lib/SQL/Translator/Producer/Storable.pm,v $
-# $Id: Storable.pm,v 1.1 2003-10-08 18:24:25 phrrngtn Exp $
-
=head1 NAME
-SQL::Translator::Producer::Storable - null producer for Schema objects that have already been created.
+SQL::Translator::Producer::Storable - serializes the SQL::Translator::Schema
+ object via the Storable module
=head1 SYNOPSIS
use SQL::Translator;
- use SQL::Translator::Producer::Storable;
my $translator = SQL::Translator->new;
- $translator->producer("SQL::Translator::Producer::Storable");
+ $translator->producer('Storable');
=head1 DESCRIPTION
-Uses Storable to serialize a schema to a string so that it can be
-saved on disk or whatever.
+This module uses Storable to serialize a schema to a string so that it
+can be saved to disk. Serializing a schema and then calling producers
+on the stored can realize significant performance gains when parsing
+takes a long time.
=cut
use strict;
-use vars qw($DEBUG $VERSION @EXPORT_OK);
+use warnings;
+our ( $DEBUG, @EXPORT_OK );
$DEBUG = 0 unless defined $DEBUG;
-$VERSION = sprintf "%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/;
+our $VERSION = '1.59';
use Storable;
use Exporter;
-use SQL::Translator::Utils qw(debug normalize_name);
-
use base qw(Exporter);
@EXPORT_OK = qw(produce);
sub produce {
my $t = shift;
-
my $args = $t->producer_args;
my $schema = $t->schema;
- my $serialized = Storable::freeze($schema);
+ my $serialized = Storable::nfreeze($schema);
return $serialized;
}
=pod
-=head1 AUTHORS
+=head1 AUTHOR
-Paul Harrington <harringp@deshaw.com>
+Paul Harrington E<lt>harringp@deshaw.comE<gt>.
=head1 SEE ALSO
-SQL::Translator::Parser::Excel;
+SQL::Translator, SQL::Translator::Schema, Storable.
=cut