5.21.5 has been ticked off
[perl.git] / lib / bytes_heavy.pl
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;