Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.204
Domains :
Cant Read [ /etc/named.conf ]
User : SISTEMA
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
C: /
xampp /
perl /
vendor /
lib /
SQL /
Abstract /
Delete
Unzip
Name
Size
Permission
Date
Action
Plugin
[ DIR ]
drwxrwxrwx
2024-07-26 17:39
Role
[ DIR ]
drwxrwxrwx
2024-07-26 17:39
Classic.pm
87.59
KB
-rw-rw-rw-
2019-10-17 14:27
Formatter.pm
2.41
KB
-rw-rw-rw-
2021-01-21 22:33
Parts.pm
697
B
-rw-rw-rw-
2021-01-23 09:21
Reference.pm
22.68
KB
-rw-rw-rw-
2021-01-21 22:33
Test.pm
12.11
KB
-rw-rw-rw-
2021-01-21 22:33
Tree.pm
25.26
KB
-rw-rw-rw-
2019-04-18 04:43
Util.pm
4.87
KB
-rw-rw-rw-
2019-10-17 05:23
Save
Rename
package SQL::Abstract::Parts; use Module::Runtime (); use Scalar::Util (); use strict; use warnings; use overload '""' => 'stringify', fallback => 1; sub new { my ($proto, $join, @parts) = @_; bless([ $join, map Scalar::Util::blessed($_) ? [ @$_ ] : $_, @parts ], ref($proto) || $proto); } sub stringify { my ($self) = @_; my ($join, @parts) = @$self; return join($join, map +(ref() ? stringify($_) : $_), @parts); } sub to_array { return @{$_[0]} } sub formatter { my ($self, %opts) = @_; require SQL::Abstract::Formatter; SQL::Abstract::Formatter->new(%opts) } sub format { my ($self, %opts) = @_; $self->formatter(%opts) ->format($self->to_array); } 1;