use base qw/DBIx::Class/;
use overload
- q/""/ => sub { __PACKAGE__ . ":" . shift->source_monkier; },
+ q/""/ => sub { __PACKAGE__ . ":" . shift->source_moniker; },
fallback => 1;
-__PACKAGE__->mk_group_accessors('simple' => qw/schema source_monkier/);
+__PACKAGE__->mk_group_accessors('simple' => qw/schema source_moniker/);
=head1 NAME
=item *
-Closer to being aboe to do a Serialize::Storable that doesn't require class-based connections
+Closer to being able to do a Serialize::Storable that doesn't require class-based connections
=back
=head2 resolve
-Resolve the monkier into the actual ResultSource object
+Resolve the moniker into the actual ResultSource object
=cut
-sub resolve { return $_[0]->schema->source($_[0]->source_monkier) }
+sub resolve { return $_[0]->schema->source($_[0]->source_moniker) }
+
+=head2 STORABLE_freeze
+
+Freezes a handle.
+
+=cut
sub STORABLE_freeze {
my ($self, $cloning) = @_;
return (Storable::freeze($to_serialize));
}
+=head2 STORABLE_thaw
+
+Thaws frozen handle.
+
+=cut
+
sub STORABLE_thaw {
my ($self, $cloning,$ice) = @_;
%$self = %{ Storable::thaw($ice) };