package MyClass;
use Moose;

has 'name' => (
	is => 'ro',
	writer => 'set_name',
	predicate => 'has_name',
);

no Moose;
__PACKAGE__->meta->make_immutable;

package Respect;
use Moose::Role;
use Carp qw( cluck );

sub get_respectful_name{
	my ( $self, ) = @_;
	if( $self->has_name ){
		return $self->name . " - San\n";
	}else{
		cluck "No name is available";
		return undef
	}
}

no Moose::Role;

use Moose::Util qw( with_traits );
use Smart::Comments '###';

my $business_associate = with_traits(
					'MyClass',
					(
						'Respect',
					),
				)->new();

print "Hello " . $business_associate->get_respectful_name . "\n";
$business_associate->set_name( 'Miyagi' );
print "Hello " . $business_associate->get_respectful_name . "\n";
1;