1 2 3 4 5 6 7 8
package byte; sub length ($) { BEGIN { byte::import() } return CORE::length($_[0]); } 1;