package Mooooose; use Moose; has 'mod_name' => (is => 'rw', isa => 'Str'); has 'init_val' => (is => 'ro', isa =>'HashRef', default => sub{ _decode() }); sub _decode { my %hage = (hoge=>'1'); \%hoge; } package main; use Mooooose; my $mos = …