home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / lib / bytes_heavy.pl < prev    next >
Perl Script  |  2000-02-18  |  101b  |  9 lines
  1. package bytes;
  2.  
  3. sub length ($) {
  4.     BEGIN { bytes::import() }
  5.     return CORE::length($_[0]);
  6. }
  7.  
  8. 1;
  9.