Introducing MooseX::hasn't

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
[download]

more at MooseX::hasn't

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Back to Cool Uses for Perl