AlaK4X
Linux lhjmq-records 5.15.0-118-generic #128-Ubuntu SMP Fri Jul 5 09:28:59 UTC 2024 x86_64



Your IP : 3.145.84.128


Current Path : /lib/x86_64-linux-gnu/perl-base/
Upload File :
Current File : //lib/x86_64-linux-gnu/perl-base/utf8.pm

package utf8;

use strict;
use warnings;

our $hint_bits = 0x00800000;

our $VERSION = '1.24';
our $AUTOLOAD;

sub import {
    $^H |= $hint_bits;
}

sub unimport {
    $^H &= ~$hint_bits;
}

sub AUTOLOAD {
    goto &$AUTOLOAD if defined &$AUTOLOAD;
    require Carp;
    Carp::croak("Undefined subroutine $AUTOLOAD called");
}

1;
__END__