a.pl

#!/usr/bin/env perl
use Modern::Perl;

use MooseX::Declare;

class Person {

    has name => (
        is  => "rw",
        isa => "Str",
    );

    method hello_to ( Str $name ) {
        say $self->name . " says hello to $name!";
    }

}

my $shelling = Person->new(
    name => "shelling",
);

$shelling->hello_to("rob");