package t::lib::Yellow; our $TYPE = 'colour'; sub size { return 'small'; } sub kind { return 'colour'; } 1;