Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64
Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25
: 172.16.0.66 | : 172.16.0.254
Cant Read [ /etc/named.conf ]
7.3.25
SYSTEM
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
BLACK DEFEND!
README
+ Create Folder
+ Create File
[ A ]
[ C ]
[ D ]
C: /
xampp7 /
perl /
vendor /
lib /
Sub /
Exporter /
[ HOME SHELL ]
Name
Size
Permission
Action
Cookbook.pod
8.4
KB
-rw-rw-rw-
ForMethods.pm
6.18
KB
-rw-rw-rw-
Progressive.pm
4.7
KB
-rw-rw-rw-
Tutorial.pod
8.93
KB
-rw-rw-rw-
Util.pm
8.72
KB
-rw-rw-rw-
Delete
Unzip
Zip
${this.title}
Close
Code Editor : ForMethods.pm
use strict; use warnings; package Sub::Exporter::ForMethods; # ABSTRACT: helper routines for using Sub::Exporter to build methods $Sub::Exporter::ForMethods::VERSION = '0.100052'; use Scalar::Util 'blessed'; use Sub::Name (); use Sub::Exporter 0.978 -setup => { exports => [ qw(method_installer) ], }; #pod =head1 SYNOPSIS #pod #pod In an exporting library: #pod #pod package Method::Builder; #pod #pod use Sub::Exporter::ForMethods qw(method_installer); #pod #pod use Sub::Exporter -setup => { #pod exports => [ method => \'_method_generator' ], #pod installer => method_installer, #pod }; #pod #pod sub _method_generator { #pod my ($self, $name, $arg, $col) = @_; #pod return sub { ... }; #pod }; #pod #pod In an importing library: #pod #pod package Vehicle::Autobot; #pod use Method::Builder method => { -as => 'transform' }; #pod #pod =head1 DESCRIPTION #pod #pod The synopsis section, above, looks almost indistinguishable from any other #pod use of L<Sub::Exporter|Sub::Exporter>, apart from the use of #pod C<method_installer>. It is nearly indistinguishable in behavior, too. The #pod only change is that subroutines exported from Method::Builder into named slots #pod in Vehicle::Autobot will be wrapped in a subroutine called #pod C<Vehicle::Autobot::transform>. This will insert a named frame into stack #pod traces to aid in debugging. #pod #pod More importantly (for the author, anyway), they will not be removed by #pod L<namespace::autoclean|namespace::autoclean>. This makes the following code #pod work: #pod #pod package MyLibrary; #pod #pod use Math::Trig qw(tan); # uses Exporter.pm #pod use String::Truncate qw(trunc); # uses Sub::Exporter's defaults #pod #pod use Sub::Exporter::ForMethods qw(method_installer); #pod use Mixin::Linewise { installer => method_installer }, qw(read_file); #pod #pod use namespace::autoclean; #pod #pod ... #pod #pod 1; #pod #pod After MyLibrary is compiled, C<namespace::autoclean> will remove C<tan> and #pod C<trunc> as foreign contaminants, but will leave C<read_file> in place. It #pod will also remove C<method_installer>, an added win. #pod #pod =head1 EXPORTS #pod #pod Sub::Exporter::ForMethods offers only one routine for export, and it may also #pod be called by its full package name: #pod #pod =head2 method_installer #pod #pod my $installer = method_installer(\%arg); #pod #pod This routine returns an installer suitable for use as the C<installer> argument #pod to Sub::Exporter. It updates the C<\@to_export> argument to wrap all code that #pod will be installed by name in a named subroutine, then passes control to the #pod default Sub::Exporter installer. #pod #pod The only argument to C<method_installer> is an optional hashref which may #pod contain a single entry for C<rebless>. If the value for C<rebless> is true, #pod when a blessed subroutine is wrapped, the wrapper will be blessed into the same #pod package. #pod #pod =cut sub method_installer { my ($mxi_arg) = @_; my $rebless = $mxi_arg->{rebless}; sub { my ($arg, $to_export) = @_; my $into = $arg->{into}; for (my $i = 0; $i < @$to_export; $i += 2) { my ($as, $code) = @$to_export[ $i, $i+1 ]; next if ref $as; my $sub = sub { $code->(@_) }; if ($rebless and defined (my $code_pkg = blessed $code)) { bless $sub, $code_pkg; } $to_export->[ $i + 1 ] = Sub::Name::subname( join(q{::}, $into, $as), $sub, ); } Sub::Exporter::default_installer($arg, $to_export); }; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Sub::Exporter::ForMethods - helper routines for using Sub::Exporter to build methods =head1 VERSION version 0.100052 =head1 SYNOPSIS In an exporting library: package Method::Builder; use Sub::Exporter::ForMethods qw(method_installer); use Sub::Exporter -setup => { exports => [ method => \'_method_generator' ], installer => method_installer, }; sub _method_generator { my ($self, $name, $arg, $col) = @_; return sub { ... }; }; In an importing library: package Vehicle::Autobot; use Method::Builder method => { -as => 'transform' }; =head1 DESCRIPTION The synopsis section, above, looks almost indistinguishable from any other use of L<Sub::Exporter|Sub::Exporter>, apart from the use of C<method_installer>. It is nearly indistinguishable in behavior, too. The only change is that subroutines exported from Method::Builder into named slots in Vehicle::Autobot will be wrapped in a subroutine called C<Vehicle::Autobot::transform>. This will insert a named frame into stack traces to aid in debugging. More importantly (for the author, anyway), they will not be removed by L<namespace::autoclean|namespace::autoclean>. This makes the following code work: package MyLibrary; use Math::Trig qw(tan); # uses Exporter.pm use String::Truncate qw(trunc); # uses Sub::Exporter's defaults use Sub::Exporter::ForMethods qw(method_installer); use Mixin::Linewise { installer => method_installer }, qw(read_file); use namespace::autoclean; ... 1; After MyLibrary is compiled, C<namespace::autoclean> will remove C<tan> and C<trunc> as foreign contaminants, but will leave C<read_file> in place. It will also remove C<method_installer>, an added win. =head1 EXPORTS Sub::Exporter::ForMethods offers only one routine for export, and it may also be called by its full package name: =head2 method_installer my $installer = method_installer(\%arg); This routine returns an installer suitable for use as the C<installer> argument to Sub::Exporter. It updates the C<\@to_export> argument to wrap all code that will be installed by name in a named subroutine, then passes control to the default Sub::Exporter installer. The only argument to C<method_installer> is an optional hashref which may contain a single entry for C<rebless>. If the value for C<rebless> is true, when a blessed subroutine is wrapped, the wrapper will be blessed into the same package. =head1 AUTHOR Ricardo Signes <rjbs@cpan.org> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2015 by Ricardo Signes. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut
Close