package TBomb; use strict; use warnings; use Class::Trait 'base'; sub explode { "Bomb explodes"; } sub fuse { "Bomb fuse"; } 1;