Linux srv25.usacloudserver.us 5.14.0-570.39.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Sep 4 05:08:52 EDT 2025 x86_64
LiteSpeed
Server IP : 23.137.84.82 & Your IP : 216.73.216.127
Domains :
Cant Read [ /etc/named.conf ]
User : epicgamerzoneco
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
lib64 /
perl5 /
vendor_perl /
Unicode /
Delete
Unzip
Name
Size
Permission
Date
Action
Collate
[ DIR ]
drwxr-xr-x
2025-08-15 18:07
LineBreak
[ DIR ]
drwxr-xr-x
2025-08-15 18:07
Collate.pm
63.81
KB
-rw-r--r--
2020-09-26 23:56
GCString.pm
956
B
-rw-r--r--
2018-12-29 04:15
GCString.pod
6.21
KB
-rw-r--r--
2017-04-11 09:53
LineBreak.pm
6.28
KB
-rw-r--r--
2018-12-29 05:07
LineBreak.pod
26.53
KB
-rw-r--r--
2018-03-29 12:34
Normalize.pm
18.43
KB
-rw-r--r--
2022-02-16 11:20
Save
Rename
#-*-perl-*- package Unicode::GCString; require 5.008; =encoding utf-8 =cut ### Pragmas: use strict; use warnings; use vars qw($VERSION @EXPORT_OK @ISA); ### Exporting: use Exporter; our @EXPORT_OK = qw(); our %EXPORT_TAGS = ('all' => [@EXPORT_OK]); ### Inheritance: our @ISA = qw(Exporter); ### Other modules: use Unicode::LineBreak; ### Globals # The package version our $VERSION = '2013.10'; use overload '@{}' => \&as_arrayref, '${}' => \&as_scalarref, '""' => \&as_string, '.' => \&concat, #XXX'.=' => \&concat, #FIXME:segfault 'cmp' => \&cmp, '<>' => \&next, ; sub new { my $class = shift; my $self; if (scalar @_ <= 2) { $self = __PACKAGE__->_new(@_); } else { my $str = shift; my $lb = Unicode::LineBreak->new(@_); $self = __PACKAGE__->_new($str, $lb); } bless $self, $class; } sub as_arrayref { my @a = shift->as_array; return \@a; } 1;