[perl #22236] File::Basename behavior is misleading

[perl5.git] / lib / bytes_heavy.pl

diff --git a/lib/bytes_heavy.pl b/lib/bytes_heavy.pl
index ec05585..923381d 100644 (file)
--- a/lib/bytes_heavy.pl
+++ b/lib/bytes_heavy.pl
@@ -1,8 +1,40 @@
-package byte;
+package bytes;
 
 sub length ($) {
-    BEGIN { byte::import() }
+    BEGIN { bytes::import() }
     return CORE::length($_[0]);
 }
 
+sub substr ($$;$$) {
+    BEGIN { bytes::import() }
+    return
+       @_ == 2 ? CORE::substr($_[0], $_[1]) :
+       @_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
+                 CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
+}
+
+sub ord ($) {
+    BEGIN { bytes::import() }
+    return CORE::ord($_[0]);
+}
+
+sub chr ($) {
+    BEGIN { bytes::import() }
+    return CORE::chr($_[0]);
+}
+
+sub index ($$;$) {
+    BEGIN { bytes::import() }
+    return
+       @_ == 2 ? CORE::index($_[0], $_[1]) :
+                 CORE::index($_[0], $_[1], $_[2]) ;
+}
+
+sub rindex ($$;$) {
+    BEGIN { bytes::import() }
+    return
+       @_ == 2 ? CORE::rindex($_[0], $_[1]) :
+                 CORE::rindex($_[0], $_[1], $_[2]) ;
+}
+
 1;