use strict;
use warnings;
use Test::More;
use Test::Fatal;
{ package Local::Dummy1; use Test::Requires 'Moo'; use Test::Requires 'MooX::TypeTiny' };
{
        package Local::Role1;
        use Moo::Role;
        use Sub::HandlesVia;
        use Types::Standard qw( ArrayRef Int );
        has nums => (
                is           => 'ro',
                isa          => ArrayRef[Int],
                builder      => sub { [ 1..10 ] },
                handles_via  => 'Array',
                handles      => { pop_num => 'pop', push_num => 'push' },
        );
}
{
        package Local::Class1;
        use Moo;
        use MooX::TypeTiny;
        with 'Local::Role1';
}
#require B::Deparse;
#::note( B::Deparse->new->coderef2text(\&Local::Class1::pop_num) );
my $obj = Local::Class1->new;
is( $obj->pop_num, 10 );
is( $obj->pop_num, 9 );
is( $obj->pop_num, 8 );
is( $obj->pop_num, 7 );
isnt(
        exception { $obj->push_num(44.5) },
        undef,
);
is( $obj->pop_num, 6 );
is(
        exception { $obj->push_num(6) },
        undef,
);
is( $obj->pop_num, 6 );
done_testing;