use MooseX::Storage::Engine;
-our $VERSION = '0.01';
+our $VERSION = '0.18';
+our $AUTHORITY = 'cpan:STEVAN';
sub pack {
- my $self = shift;
+ my ( $self, @args ) = @_;
my $e = MooseX::Storage::Engine->new( object => $self );
- $e->collapse_object;
+ $e->collapse_object(@args);
}
sub unpack {
- my ( $class, $data ) = @_;
+ my ( $class, $data, @args ) = @_;
my $e = MooseX::Storage::Engine->new( class => $class );
- $class->new( $e->expand_object($data) );
+ $class->new( $e->expand_object($data, @args) );
}
1;
=head1 COPYRIGHT AND LICENSE
-Copyright 2007 by Infinity Interactive, Inc.
+Copyright 2007-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>