Re: Raku question: "Moose is Perl", but it sure ain't Raku.

[tobyink]

Here's an example using my latest plaything, MooX::Pression. Raku-like syntax, but it's Perl 5.

use v5.14;
use strict;
use warnings;

package Local {
    use MooX::Pression;
    
    class Employee {
        has name  (type => Str, required => true);
        has title (type => Str, required => true);
        
        method name_and_title () {
            my $name  = $self->name;
            my $title = $self->title;
            return "$name, $title";
        }
    }
    
    class Employee::Former {
        extends Employee;
        factory former_employee;
        has +title = "Team Member";
        
        around name_and_title () {
            my $old = $self->$next(@_);
            return "$old (Former)";
        }
    }
}

my $peon = Local->new_employee(
    name  => 'William Toady',
    title => 'Associate Assistant',
);

say $peon->name_and_title;

my $ex_peon = Local->former_employee(
    name  => 'William Toady',
    title => 'Associate Assistant',
);

say $ex_peon->name_and_title;

my $ex_peon2 = Local->former_employee(
    name  => 'William Toady',
);

say $ex_peon2->name_and_title;

__END__
William Toady, Associate Assistant
William Toady, Associate Assistant (Former)
William Toady, Team Member (Former)

Of course, this uses Moo instead of Moose. If you prefer Moose...

use MooX::Pression toolkit => "Moose";