X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSourceHandle.pm;h=474c9a4a4c6cb883036cd95f6a58c1d0f334d565;hb=1b6fe47d369e84831a8a881813a53cca68694e72;hp=60118b8324d12a238d7dbc9aa8bba50a5247a598;hpb=3441fd57f3e40b9862f41618b49178f66de1a4d8;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/ResultSourceHandle.pm b/lib/DBIx/Class/ResultSourceHandle.pm
index 60118b8..474c9a4 100644
--- a/lib/DBIx/Class/ResultSourceHandle.pm
+++ b/lib/DBIx/Class/ResultSourceHandle.pm
@@ -3,18 +3,24 @@ package DBIx::Class::ResultSourceHandle;
 use strict;
 use warnings;
 use Storable;
+use Carp;
 
 use base qw/DBIx::Class/;
 
 use overload
+    # on some RH perls the following line causes serious performance problem
+    # see https://bugzilla.redhat.com/show_bug.cgi?id=196836
     q/""/ => sub { __PACKAGE__ . ":" . shift->source_moniker; },
     fallback => 1;
 
 __PACKAGE__->mk_group_accessors('simple' => qw/schema source_moniker/);
 
+# Schema to use when thawing.
+our $thaw_schema;
+
 =head1 NAME
 
-DBIx::Class::ResultSourceHandle
+DBIx::Class::ResultSourceHandle - Decouple Rows/ResultSets objects from their Source objects
 
 =head1 DESCRIPTION
 
@@ -33,10 +39,6 @@ will have a C<$schema> object through their source handle
 Large output when using Data::Dump(er) since this class can be set to
 stringify to almost nothing
 
-=item *
-
-Closer to being aboe to do a Serialize::Storable that doesn't require class-based connections
-
 =back
 
 =head1 METHODS
@@ -61,16 +63,53 @@ Resolve the moniker into the actual ResultSource object
 
 sub resolve { return $_[0]->schema->source($_[0]->source_moniker) }
 
+=head2 STORABLE_freeze
+
+Freezes a handle.
+
+=cut
+
 sub STORABLE_freeze {
     my ($self, $cloning) = @_;
+
     my $to_serialize = { %$self };
+
     delete $to_serialize->{schema};
-    return (Storable::freeze($to_serialize));
+    $to_serialize->{_frozen_from_class} = $self->schema->class($self->source_moniker);
+
+    return (Storable::nfreeze($to_serialize));
 }
 
+=head2 STORABLE_thaw
+
+Thaws frozen handle. Resets the internal schema reference to the package
+variable C<$thaw_schema>. The recommended way of setting this is to use 
+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->{_frozen_from_class};
+    if( $thaw_schema ) {
+        $self->{schema} = $thaw_schema;
+    }
+    else {
+        my $rs = $class->result_source_instance;
+        $self->{schema} = $rs->schema if $rs;
+    }
+
+    carp "Unable to restore schema. Look at 'freeze' and 'thaw' methods in DBIx::Class::Schema."
+        unless $self->{schema};
 }
 
+=head1 AUTHOR
+
+Ash Berlin C<< <ash@cpan.org> >>
+
+=cut
+
 1;