use strict;
use warnings;
{
package MyApp::Role;
use Moose::Role;
use MooseX::Role::AttributeOverride;
has_plus 'fun' => ( default => 'yep', );
}
{
package MyApp;
use Moose;
has 'fun' => (
is => 'rw',
isa => 'Str'
);
with qw(MyApp::Role);
}
{
package main;
#use MyApp;
use Test::More tests => 1; # last test to print
my $test = MyApp->new();
is( $test->fun, 'yep', "Default was set by role" );
}
}