The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package AppThing;
use lib './lib';
use LEOCHARRE::Class2;
use strict;
__PACKAGE__->make_constructor;
__PACKAGE__->make_accessor_setget_unique_array('_hands');

1;



use Test::Simple 'no_plan';
use strict;
use lib './lib';

print STDERR "\n ============================================ $0 \n\n";
use Smart::Comments '###';

my $href;

ok(1);

my $i = AppThing->new;

ok($i,'instanced');

for my $method ( qw(_hands _hands_count _hands_add _hands_delete _hands_clear _hands_exists)){
   ok($i->can($method), "can $method()");
}
print STDERR "\n---------------------line ".__LINE__."\n\n";







ok $i->_hands_add('hi there');

$href = $i->_hands_href;
### $href

ok $i->_hands_count;


ok $i->_hands_delete('hi there');

$href = $i->_hands_href;
### $href