trAvis - MANAGER

Edit File: array_from_role.t

#!/usr/bin/perl use strict; use warnings; use Test::More; use Test::Fatal; { package Foo; use Moose; has 'bar' => ( is => 'rw' ); package Stuffed::Role; use Moose::Role; has 'options' => ( traits => ['Array'], is => 'ro', isa => 'ArrayRef[Foo]', ); package Bulkie::Role; use Moose::Role; has 'stuff' => ( traits => ['Array'], is => 'ro', isa => 'ArrayRef', handles => { get_stuff => 'get', } ); package Stuff; use Moose; ::is( ::exception { with 'Stuffed::Role'; }, undef, '... this should work correctly' ); ::is( ::exception { with 'Bulkie::Role'; }, undef, '... this should work correctly' ); } done_testing;