package SomeClass; use Moose; has 'time_travel_device' => ( is => 'ro', required => 1 ); sub run { my $self = shift; $self->time_travel_device->travel_to( '1955-11-05' ); }