lexical-accessors-and-methods.pl

use Moops 0.029;

class Person 0.001
{
	lexical_has name => (
		isa      => Str,
		reader   => \(my $_get_name),
		writer   => \(my $_set_name),
	);
	
	method assume_name (Str $name)
	{
		$self->$_set_name($name);
		say "OK, that's my new name.";
	}
	
	method my $_introduction (Str $template = "Hello, I am %s.")
	{
		return sprintf($template, $self->$_get_name);
	}
	
	method introduce_yourself ()
	{
		say $self->$_introduction();
	}
}

my $bob = Person->new;
$bob->assume_name("Robert");
$bob->introduce_yourself();