package String::Multibyte::Bytes;
use vars qw($VERSION);
$VERSION = '1.01';
+{
charset => 'bytes',
regexp => $] >= 5.006 ? '\C' : '[\x00-\xFF]',
nextchar =>
sub {
my $c = unpack('C', shift);
$c == 0xFF ? undef : pack('C', 1+$c);
},
cmpchar => sub { $_[0] cmp $_[1] },
};
__END__
=head1 NAME
String::Multibyte::Bytes - internally used by String::Multibyte for bytes encoding scheme
=head1 SYNOPSIS
use String::Multibyte;
$bytes = String::Multibyte->new('Bytes');
$byte_length = $bytes->length($string);
=head1 DESCRIPTION
C<String::Multibyte::Bytes> is used for string manipulation in bytes.
Character order: C<0x00..0xff>
=head1 SEE ALSO
L<String::Multibyte>
=cut