1package bytes;
2
3sub length ($) {
4    BEGIN { bytes::import() }
5    return CORE::length($_[0]);
6}
7
8sub 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
16sub ord ($) {
17    BEGIN { bytes::import() }
18    return CORE::ord($_[0]);
19}
20
21sub chr ($) {
22    BEGIN { bytes::import() }
23    return CORE::chr($_[0]);
24}
25
26sub index ($$;$) {
27    BEGIN { bytes::import() }
28    return
29	@_ == 2 ? CORE::index($_[0], $_[1]) :
30	          CORE::index($_[0], $_[1], $_[2]) ;
31}
32
33sub rindex ($$;$) {
34    BEGIN { bytes::import() }
35    return
36	@_ == 2 ? CORE::rindex($_[0], $_[1]) :
37	          CORE::rindex($_[0], $_[1], $_[2]) ;
38}
39
401;
41