Build vs Default.pl

package Xpto;
use Moose;

has built => (
  isa     => 'Int',
  is      => 'rw',
  clearer => 'clear_built',
  builder => '_build_built',
);

has lazy_built => (
  isa     => 'Int',
  is      => 'rw',
  clearer => 'clear_lazy_built',
  builder => '_build_lazy_built',
  lazy    => 1,
);

has def => (
  isa     => 'Int',
  is      => 'rw',
  clearer => 'clear_def',
  default => 42
);

sub _build_built      {42}
sub _build_lazy_built {42}


package main;

use Test::More;

my $o = Xpto->new;
is($o->built,      42);
is($o->lazy_built, 42);
is($o->def,        42);

$o->clear_built;
$o->clear_lazy_built;
$o->clear_def;

ok(!defined($o->built));
ok(!defined($o->def));
is($o->lazy_built, 42);

done_testing();