Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $clone = Clone::clone($orig);
is(0+@$clone, 0+@$orig);
1;

1..1
# Clone 0.29
...
#          got: '0'
#     expected: '3'
# Looks like you failed 1 test of 1.

1..1
# Clone 0.31
ok 1