ヤミRoot VoidGate

Viewing: moo-accessors.t

use Moo::_strictures;
use Test::More;
use Sub::Quote qw(quote_sub);

{
  package Foo;

  use Moo;

  has one => (is => 'ro');
  has two => (is => 'rw', init_arg => undef);
  has three => (is => 'ro', init_arg => 'THREE', required => 1);

  package Bar;

  use Moo::Role;

  has four => (is => 'ro');
  ::quote_sub 'Bar::quoted' => '1';

  package Baz;

  use Moo;

  extends 'Foo';

  with 'Bar';

  has five => (is => 'rw');
}

my $foo = Foo->new(
  one => 1,
  THREE => 3
);

is_deeply(
  { %$foo }, { one => 1, three => 3 }, 'simple class ok'
);

my $baz = Baz->new(
  one => 1,
  THREE => 3,
  four => 4,
  five => 5,
);

is_deeply(
  { %$baz }, { one => 1, three => 3, four => 4, five => 5 },
  'subclass with role ok'
);

ok(eval { Foo->meta->make_immutable }, 'make_immutable returns true');
ok(!$INC{"Moose.pm"}, "Didn't load Moose");

$baz->quoted;

is +$baz->can('quoted'), Bar->can('quoted'),
  'accessor from role is undeferred in consuming class';

done_testing unless caller;

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