[p5sagit/p5-mst-13.2.git] / lib / byte.pm

package byte;

sub import {
    $^H |= 0x00000010;
}

sub unimport {
    $^H &= ~0x00000010;
}

sub AUTOLOAD {
    require "byte_heavy.pl";
    goto &$AUTOLOAD;
}

sub length ($);

1;
__END__

=head1 NAME

byte - Perl pragma to turn force treating strings as bytes not UNICODE

=head1 SYNOPSIS

    use byte;
    no byte;

=head1 DESCRIPTION


=cut
Commit	Line	Data
5bc28da9	1	package byte;
	2
	3	sub import {
	4	$^H \|= 0x00000010;
	5	}
	6
	7	sub unimport {
	8	$^H &= ~0x00000010;
	9	}
	10
	11	sub AUTOLOAD {
	12	require "byte_heavy.pl";
	13	goto &$AUTOLOAD;
	14	}
	15
	16	sub length ($);
	17
	18	1;
	19	__END__
	20
	21	=head1 NAME
	22
	23	byte - Perl pragma to turn force treating strings as bytes not UNICODE
	24
	25	=head1 SYNOPSIS
	26
	27	use byte;
	28	no byte;
	29
	30	=head1 DESCRIPTION
	31
	32
	33	=cut