package MooseX::Storage::Format::Storable;
use Moose::Role;
-use Storable ();
-
requires 'pack';
requires 'unpack';
sub thaw {
my ( $class, $stored, @args ) = @_;
+
+ require Storable;
$class->unpack( Storable::thaw($stored), @args );
}
sub freeze {
my ( $self, @args ) = @_;
+ require Storable;
Storable::nfreeze( $self->pack(@args) );
}