%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/role-tiny-inflate.t

use Moo::_strictures;
use Test::More;

eval q{
  package TinyRole;
  $INC{'TinyRole.pm'} = __FILE__;
  use Role::Tiny;

  sub role_tiny_method { 219 }
  1;
} or die $@;

require Moo::Role;
require Moose;

eval q{
  package TinyRoleAfterMoo;
  $INC{'TinyRoleAfterMoo.pm'} = __FILE__;
  use Role::Tiny;

  sub role_tiny_after_method { 42 }
  1;
} or die $@;

eval q{
  package Some::Moose::Class;
  use Moose;
  1;
} or die $@;

eval q{
  package Some::Moose::Class;
  with 'TinyRole';
};
$@ =~ s/\n.*//s;
is $@, '', 'Moose can consume Role::Tiny created before Moo loaded';

eval q{
  package Some::Moose::Class;
  with 'TinyRoleAfterMoo';
};
$@ =~ s/\n.*//s;
is $@, '', 'Moose can consume Role::Tiny created after Moo loaded';

done_testing;

Zerion Mini Shell 1.0