[Summary view] [Print] [Text view]

   1  package bytes;
   2  
   3  sub length (_) {
   4      BEGIN { bytes::import() }
   5      return CORE::length($_[0]);
   6  }
   7  
   8  sub substr ($$;$$) {
   9      BEGIN { bytes::import() }
  10      return
  11      @_ == 2 ? CORE::substr($_[0], $_[1]) :
  12      @_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
  13                CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
  14  }
  15  
  16  sub ord (_) {
  17      BEGIN { bytes::import() }
  18      return CORE::ord($_[0]);
  19  }
  20  
  21  sub chr (_) {
  22      BEGIN { bytes::import() }
  23      return CORE::chr($_[0]);
  24  }
  25  
  26  sub index ($$;$) {
  27      BEGIN { bytes::import() }
  28      return
  29      @_ == 2 ? CORE::index($_[0], $_[1]) :
  30                CORE::index($_[0], $_[1], $_[2]) ;
  31  }
  32  
  33  sub rindex ($$;$) {
  34      BEGIN { bytes::import() }
  35      return
  36      @_ == 2 ? CORE::rindex($_[0], $_[1]) :
  37                CORE::rindex($_[0], $_[1], $_[2]) ;
  38  }
  39  
  40  1;