- or download this
# My/Role.pm
package My::Role;
use Moo::Role;
...
my ($params, $mop) = @_;
$mop->has($params->{name} => is => $params->{is});
}
- or download this
# My/Obj.pm
package My::Obj;
use Moo;
...
name => 'size',
is => 'ro',
});
- or download this
package My::Obj;
use Moo;
use MooX::Role::Parameterized::With 'My::Role' => {
name => 'size',
is => 'ro',
};
- or download this
package My::Obj;
use Moo;
use MooX::Role::Parameterized::With 0.501;
...
name => 'size',
is => 'ro',
};
- or download this
package My::Role;
use Moo::Role;
use MooX::Role::Parameterized 0.501;
...
my ($params, $mop) = @_;
$mop->has($params->name => is => $params->is);
}