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

SPOPS documentation

Contained in the SPOPS distribution.

Index

NAME
SYNOPSIS
DESCRIPTION
PROPERTIES
METHODS
BUGS
TO DO
SEE ALSO
COPYRIGHT
AUTHORS

Code Index:

package SPOPS::Export::Perl
- create_footer
- create_record
__END__
EOF

NAME

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

SYNOPSIS

 # See SPOPS::Export

DESCRIPTION

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

PROPERTIES

No extra ones beyond SPOPS::Export

METHODS

create_record()

Just track the record to be exported.

create_footer()

Dump all tracked records out using Data::Dumper.

BUGS

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

TO DO

Nothing known.

SEE ALSO

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.

AUTHORS

Chris Winters <chris@cwinters.com>

SPOPS documentation

Contained in the SPOPS distribution.

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__