1 package DBIx::Class::ResultSourceHandle;
8 use base qw/DBIx::Class/;
11 # on some RH perls the following line causes serious performance problem
12 # see https://bugzilla.redhat.com/show_bug.cgi?id=196836
13 q/""/ => sub { __PACKAGE__ . ":" . shift->source_moniker; },
16 __PACKAGE__->mk_group_accessors('simple' => qw/schema source_moniker/);
18 # Schema to use when thawing.
23 DBIx::Class::ResultSourceHandle - Decouple Rows/ResultSets objects from their Source objects
27 This module removes fixed link between Rows/ResultSets and the actual source
28 objects, which gets round the following problems
34 Needing to keep C<$schema> in scope, since any objects/result_sets
35 will have a C<$schema> object through their source handle
39 Large output when using Data::Dump(er) since this class can be set to
40 stringify to almost nothing
51 my ($class, $data) = @_;
53 $class = ref $class if ref $class;
60 Resolve the moniker into the actual ResultSource object
64 sub resolve { return $_[0]->schema->source($_[0]->source_moniker) }
66 =head2 STORABLE_freeze
73 my ($self, $cloning) = @_;
75 my $to_serialize = { %$self };
77 delete $to_serialize->{schema};
78 $to_serialize->{_frozen_from_class} = $self->schema->class($self->source_moniker);
80 return (Storable::nfreeze($to_serialize));
85 Thaws frozen handle. Resets the internal schema reference to the package
86 variable C<$thaw_schema>. The recommended way of setting this is to use
87 C<< $schema->thaw($ice) >> which handles this for you.
93 my ($self, $cloning, $ice) = @_;
94 %$self = %{ Storable::thaw($ice) };
96 my $class = delete $self->{_frozen_from_class};
98 $self->{schema} = $thaw_schema;
101 my $rs = $class->result_source_instance;
102 $self->{schema} = $rs->schema if $rs;
105 carp "Unable to restore schema. Look at 'freeze' and 'thaw' methods in DBIx::Class::Schema."
106 unless $self->{schema};
111 Ash Berlin C<< <ash@cpan.org> >>