ヤミRoot VoidGate

Viewing: accessor-mixed.t

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

my @result;

{
  package Foo;

  use Moo;

  my @isa = (isa => sub { push @result, 'isa', $_[0] });
  my @trigger = (trigger => sub { push @result, 'trigger', $_[1] });
  sub _mkdefault {
    my $val = shift;
    (default => sub { push @result, 'default', $val; $val; })
  }

  has a1 => (
    is => 'rw', @isa
  );
  has a2 => (
    is => 'rw', @isa, @trigger
  );
  has a3 => (
    is => 'rw', @isa, @trigger
  );
  has a4 => (
    is => 'rw', @trigger, _mkdefault('a4')
  );
  has a5 => (
    is => 'rw', @trigger, _mkdefault('a5')
  );
  has a6 => (
    is => 'rw', @isa, @trigger, _mkdefault('a6')
  );
  has a7 => (
    is => 'rw', @isa, @trigger, _mkdefault('a7')
  );
}

my $foo = Foo->new(a1 => 'a1', a2 => 'a2', a4 => 'a4', a6 => 'a6');

is_deeply(
  \@result,
  [ qw(isa a1 isa a2 trigger a2 trigger a4 default a5 isa a6 trigger a6
    default a7 isa a7) ],
  'Stuff fired in expected order'
);

{
  package Guff;
  use Moo;

  sub foo { 1 }

  for my $type (qw(accessor reader writer predicate clearer asserter)) {
    my $an = $type =~ /^a/ ? 'an' : 'a';
    ::like ::exception {
      has "attr_w_$type" => ( is => 'ro', $type => 'foo' );
    },
      qr/^You cannot overwrite a locally defined method \(foo\) with $an $type/,
      "overwriting a sub with $an $type fails";
  }
}

{
  package NWFG;
  use Moo;
  ::is ::exception {
    has qq{odd"na;me\n} => (
      is => 'bare',
      map +($_ => 'attr_'.$_),
        qw(accessor reader writer predicate clearer asserter)
    );
  }, undef,
    'all accessor methods work with oddly named attribute';
}


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