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