Extending Classes

Simply extending a class is simple:

use Moose; package RaceCar; extends 'Car';

Simple enough, right?

But here's where some of the fun comes in:

# in RaceCar.pm before 'fill_up' => sub { my ($self) = @_; die "Are you insane?!\n" if $self->fuel_type->octane < 100; }; after 'tire_replacement' => sub { my ($self) = @_; $self->set_camber(-2); };