NAME
MooseX::hasn't - syntactic sugar to complement "has"
SYNOPSIS
{
package Person;
use Moose;
has name => (is => "ro", writer => "_rename", required => 1);
}
{
package AnonymousPerson;
use Moose;
use MooseX::hasn't;
extends "Person";
hasn't name => (default => 'anon');
}
my $dude = AnonymousPerson->new;
say($dude->can('_rename') ? 'true' : 'false'); # false
say($dude->name); # croaks
more at MooseX::hasn't
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'