wtf-moo.pl

use 5.20.0;
use warnings;

package Demo {
  use Moo;

  has raw_x => (
    is => 'ro',
    required => 1,
    init_arg => 'x',
  );

  has x => (
    is => 'ro',
    lazy => 1,
    default => sub { die "!?" },
  );
}

my $obj = Demo->new({ x => 1 });

use Data::Dumper;
warn Dumper($obj);

ze-results.pl

$VAR1 = bless( {
                 'raw_x' => 1,
                 'x' => 1
               }, 'Demo' );