X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSourceHandle.pm;h=4a402e9d0e4962d2c104caf1814e6f68459b3537;hb=d4daee7b54e38e4b3d3d0a77759bddc1a4ede6e5;hp=935431820682c785797cc668360e068ef178558f;hpb=3a81f59b557a2152f0c62d552469582fa56df8a7;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/ResultSourceHandle.pm b/lib/DBIx/Class/ResultSourceHandle.pm index 9354318..4a402e9 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,7 +77,7 @@ sub STORABLE_freeze { my ($self, $cloning) = @_; my $to_serialize = { %$self }; - + my $class = $self->schema->class($self->source_moniker); $to_serialize->{schema} = $class; return (Storable::freeze($to_serialize)); @@ -87,7 +87,7 @@ 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