package Car;

use Moose;

has odometer => ( is => 'ro' );

sub drive {
   my ($self, $distance) = @_;
   ...can't update odometer...
}

1;