package Object2; use Moose; has 'some_attr', is => 'ro', default => 42; ################## package main; my $o = Object2->new; $o->some_attr; # returns 42