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.52
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 /
DBIx /
Class /
Admin /
Delete
Unzip
Name
Size
Permission
Date
Action
Descriptive.pm
222
B
-rw-rw-rw-
2016-08-24 09:05
Types.pm
994
B
-rw-rw-rw-
2016-08-24 09:05
Usage.pm
1.77
KB
-rw-rw-rw-
2018-04-30 13:43
Save
Rename
package # hide from PAUSE DBIx::Class::Admin::Types; # Workaround for https://rt.cpan.org/Public/Bug/Display.html?id=83336 use warnings; use strict; use MooseX::Types -declare => [qw( DBICConnectInfo DBICArrayRef DBICHashRef )]; use MooseX::Types::Moose qw/Int HashRef ArrayRef Str Any Bool/; use MooseX::Types::JSON qw(JSON); subtype DBICArrayRef, as ArrayRef; subtype DBICHashRef, as HashRef; coerce DBICArrayRef, from JSON, via { _json_to_data ($_) }; coerce DBICHashRef, from JSON, via { _json_to_data($_) }; subtype DBICConnectInfo, as ArrayRef; coerce DBICConnectInfo, from JSON, via { return _json_to_data($_) } ; coerce DBICConnectInfo, from Str, via { return _json_to_data($_) }; coerce DBICConnectInfo, from HashRef, via { [ $_ ] }; sub _json_to_data { my ($json_str) = @_; my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1, relaxed=>1); my $ret = $json->jsonToObj($json_str); return $ret; } 1;