lazy load attributes from role #moose #traits #lazy

gistfile1.pl

use 5.014;
use Test::Most;

{ package Person;
  use Moose;
  with 'MooseX::Traits';
  has name => qw( is ro required 1 lazy_build 1 );
}

{ package Identifiable;
  use Moose::Role;
  sub _build_name { 'John Doe' }
}

is( Person->new( name => 'Nelo Onyiah' )->name, 'Nelo Onyiah' );
is( Person->with_traits('Identifiable')->new->name, 'John Doe' );

done_testing;