Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
lazy load attributes from role #moose #traits #lazy
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' );
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment