#!/usr/bin/perl -w

# test001.pl - show usage of Clone::Clone

use Trailer;
use Clone;

my $trail = new Trailer;

my $x = {};
$x->{$x} = 25;

my $y = Clone::clone($x);

print $x->{$x},"\n";
print $y->{$y},"\n";

print $trail->ascarray($x);
print $trail->ascarray($y);

$x->{$x} = 24;

print $x->{$x},"\n";
print $y->{$y},"\n";