use
Test::More;
sub
import
{
my
(
$class
) =
@_
;
$class
->SUPER::
import
(
+{
import
=> [
'autobox'
,
'immarray'
],
to
=>
'My::Target'
,
}
)
}
}
BEGIN { My::Defaults->
import
}
ok __PACKAGE__->can(
'immarray'
),
'immarray ok'
;
ok not( __PACKAGE__->can(
'array'
) ),
'omitted array ok'
;
cmp_ok []->count,
'=='
, 0,
'autobox ok'
;
}
done_testing;