1#!perl
2
3use strict ("subs", "vars", "refs");
4use warnings ("all");
5BEGIN { $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} = "Storable"; }
6END { delete $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} } # for VMS
7
8use Test::More;
9
10BEGIN
11{
12    $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} and eval "use $ENV{CLONE_CHOOSE_PREFERRED_BACKEND}; 1;";
13    $@ and plan skip_all => "No $ENV{CLONE_CHOOSE_PREFERRED_BACKEND} found.";
14}
15
16use Clone::Choose;
17
18my %src = (
19    simple => "yeah",
20    ary    => [qw(foo bar)],
21    hash   => {foo => "bar"}
22);
23
24my $tgt = clone(\%src);
25is_deeply(\%src, $tgt);
26
27done_testing;
28
29
30