package Transit::Map; use Moose; . . . has 'map_data' => ( is => 'ro', writer => '_map_data', ); sub BUILD { my $self = shift; my $args = shift; $self->_load_map_data; return; }