package src::bo::behaviour::fly::CannotFly; use strict; use warnings; use Carp; use src::bo::behaviour::FlyBehaviour; use base qw/src::bo::behaviour::FlyBehaviour/; sub fly() { return "cannot fly"; } 1;