ヤミRoot VoidGate

Viewing: 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;

User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64