X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSourceHandle.pm;h=33204dfb6dea9d22787bd19eb6da3dd000c34fa9;hb=5c89c897f1377aede43f0e668e79876cec44f55f;hp=935431820682c785797cc668360e068ef178558f;hpb=3a81f59b557a2152f0c62d552469582fa56df8a7;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/ResultSourceHandle.pm b/lib/DBIx/Class/ResultSourceHandle.pm index 9354318..33204df 100644 --- a/lib/DBIx/Class/ResultSourceHandle.pm +++ b/lib/DBIx/Class/ResultSourceHandle.pm @@ -20,7 +20,7 @@ our $thaw_schema; =head1 NAME -DBIx::Class::ResultSourceHandle +DBIx::Class::ResultSourceHandle - Decouple Rows/ResultSets objects from their Source objects =head1 DESCRIPTION @@ -77,9 +77,10 @@ sub STORABLE_freeze { my ($self, $cloning) = @_; my $to_serialize = { %$self }; - - my $class = $self->schema->class($self->source_moniker); - $to_serialize->{schema} = $class; + + delete $to_serialize->{schema}; + $to_serialize->{_frozen_from_class} = $self->schema->class($self->source_moniker); + return (Storable::freeze($to_serialize)); } @@ -87,16 +88,16 @@ sub STORABLE_freeze { Thaws frozen handle. Resets the internal schema reference to the package variable C<$thaw_schema>. The recomened way of setting this is to use -C<$schema->thaw($ice)> which handles this for you. +C<< $schema->thaw($ice) >> which handles this for you. =cut sub STORABLE_thaw { - my ($self, $cloning,$ice) = @_; + my ($self, $cloning, $ice) = @_; %$self = %{ Storable::thaw($ice) }; - my $class = delete $self->{schema}; + my $class = delete $self->{_frozen_from_class}; if( $thaw_schema ) { $self->{schema} = $thaw_schema; } @@ -105,7 +106,8 @@ sub STORABLE_thaw { $self->{schema} = $rs->schema if $rs; } - carp "Unable to restore schema" unless $self->{schema}; + carp "Unable to restore schema. Look at 'freeze' and 'thaw' methods in DBIx::Class::Schema." + unless $self->{schema}; } =head1 AUTHOR