#!perl -w

use Test::More tests => 5;

package Fish;
use Class::Accessor::Ref qw(moose elk);

package main;

my $obj = Fish->new({ moose => 'bullwinkle', elk => 'harry' });
isa_ok($obj, "Fish");
can_ok($obj, "moose");
can_ok($obj, "_ref_moose");
is($obj->elk, "harry");
${ $obj->_ref_elk } =~ s/h/H/;
is($obj->elk, "Harry");