package SPOPS::Export::Perl;

# $Id: Perl.pm,v 3.3 2004/06/02 00:48:22 lachoy Exp $

use strict;
use base qw( SPOPS::Export );
use Data::Dumper qw( Dumper );

$SPOPS::Export::Perl::VERSION  = sprintf("%d.%02d", q$Revision: 3.3 $ =~ /(\d+)\.(\d+)/);

my @track = ();

sub create_footer { my $o = Dumper( \@track ); @track = (); return $o; }

sub create_record { push @track, $_[1]; return '' }

1;

__END__

=head1 NAME

SPOPS::Export::Perl - Dump SPOPS objects to a pure serialized Perl format

=head1 SYNOPSIS

 # See SPOPS::Export

=head1 DESCRIPTION

Just dump a set of SPOPS objects to a perl data structure using
L<Data::Dumper|Data::Dumper>.

=head1 PROPERTIES

No extra ones beyond L<SPOPS::Export|SPOPS::Export>

=head1 METHODS

B<create_record()>

Just track the record to be exported.

B<create_footer()>

Dump all tracked records out using L<Data::Dumper|Data::Dumper>.

=head1 BUGS

This will likely chew up tons of memory if you are exporting lots of
objects.

=head1 TO DO

Nothing known.

=head1 SEE ALSO

L<SPOPS::Import|SPOPS::Import>

L<Data::Dumper|Data::Dumper>

=head1 COPYRIGHT

Copyright (c) 2001-2004 intes.net, inc.. All rights reserved.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHORS

Chris Winters E<lt>chris@cwinters.comE<gt>