package My::List1;
use Moose;
- ::ok ! ::exception {
+ ::is( ::exception {
with 'List', 'List::Immutable';
- }, '... successfully composed roles together';
+ }, undef, '... successfully composed roles together' );
package My::List2;
use Moose;
- ::ok ! ::exception {
+ ::is( ::exception {
with 'List::Immutable', 'List';
- }, '... successfully composed roles together';
+ }, undef, '... successfully composed roles together' );
}