use base qw/DBIx::Class/;
-use Storable qw/nfreeze thaw/;
use DBIx::Class::Exception;
use Try::Tiny;
: $self->{_detached_source}->result_class
;
- nfreeze($to_serialize);
+ Storable::nfreeze($to_serialize);
}
=head2 STORABLE_thaw
sub STORABLE_thaw {
my ($self, $cloning, $ice) = @_;
- %$self = %{ thaw($ice) };
+ %$self = %{ Storable::thaw($ice) };
my $from_class = delete $self->{_frozen_from_class};