fix attrs on find

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Serialize.pm

package DBIx::Class::Serialize;
use strict;
use Storable qw/freeze thaw/;

sub STORABLE_freeze {
    my ($self,$cloning) = @_;
    return if $cloning;
    my $to_serialize = { %$self };
    delete $to_serialize->{result_source};
    return (freeze($to_serialize));
}

sub STORABLE_thaw {
    my ($self,$cloning,$serialized) = @_;
    %$self = %{ thaw($serialized) };
    $self->result_source($self->result_source_instance);
#    no strict 'refs';
#    my $class = ${(ref $self) . '::ISA'}[0];
#    my $schema = $self->result_source_instance->schema;
#    $self->result_source($schema->source($class));
}

1;