projects
/
dbsrgits/DBIx-Class-Historic.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
minor doc improvement to clarify how to do joins
[dbsrgits/DBIx-Class-Historic.git]
/
t
/
84serialize.t
1
use strict;
2
use warnings;
3
4
use Test::More;
5
use lib qw(t/lib);
6
use DBICTest;
7
use Storable;
8
9
my $schema = DBICTest->init_schema();
10
11
plan tests => 1;
12
13
my $artist = $schema->resultset('Artist')->find(1);
14
my $copy = eval { Storable::dclone($artist) };
15
is_deeply($copy, $artist, 'serialize row object works');
16