[ Avaa Bypassed ]




Upload:

Command:

hmhc3928@3.146.178.220: ~ $
package autouse;

#use strict;		# debugging only
use 5.006;		# use warnings

$autouse::VERSION = '1.07';

$autouse::DEBUG ||= 0;

sub vet_import ($);

sub croak {
    require Carp;
    Carp::croak(@_);
}

sub import {
    my $class = @_ ? shift : 'autouse';
    croak "usage: use $class MODULE [,SUBS...]" unless @_;
    my $module = shift;

    (my $pm = $module) =~ s{::}{/}g;
    $pm .= '.pm';
    if (exists $INC{$pm}) {
	vet_import $module;
	local $Exporter::ExportLevel = $Exporter::ExportLevel + 1;
	# $Exporter::Verbose = 1;
	return $module->import(map { (my $f = $_) =~ s/\(.*?\)$//; $f } @_);
    }

    # It is not loaded: need to do real work.
    my $callpkg = caller(0);
    print "autouse called from $callpkg\n" if $autouse::DEBUG;

    my $index;
    for my $f (@_) {
	my $proto;
	$proto = $1 if (my $func = $f) =~ s/\((.*)\)$//;

	my $closure_import_func = $func;	# Full name
	my $closure_func = $func;		# Name inside package
	my $index = rindex($func, '::');
	if ($index == -1) {
	    $closure_import_func = "${callpkg}::$func";
	} else {
	    $closure_func = substr $func, $index + 2;
	    croak "autouse into different package attempted"
		unless substr($func, 0, $index) eq $module;
	}

	my $load_sub = sub {
	    unless ($INC{$pm}) {
		require $pm;
		vet_import $module;
	    }
            no warnings qw(redefine prototype);
	    *$closure_import_func = \&{"${module}::$closure_func"};
	    print "autousing $module; "
		  ."imported $closure_func as $closure_import_func\n"
		if $autouse::DEBUG;
	    goto &$closure_import_func;
	};

	if (defined $proto) {
	    *$closure_import_func = eval "sub ($proto) { goto &\$load_sub }"
	        || die;
	} else {
	    *$closure_import_func = $load_sub;
	}
    }
}

sub vet_import ($) {
    my $module = shift;
    if (my $import = $module->can('import')) {
	croak "autoused module $module has unique import() method"
	    unless defined(&Exporter::import)
		   && ($import == \&Exporter::import ||
		       $import == \&UNIVERSAL::import)
    }
}

1;

__END__

=head1 NAME

autouse - postpone load of modules until a function is used

=head1 SYNOPSIS

  use autouse 'Carp' => qw(carp croak);
  carp "this carp was predeclared and autoused ";

=head1 DESCRIPTION

If the module C<Module> is already loaded, then the declaration

  use autouse 'Module' => qw(func1 func2($;$));

is equivalent to

  use Module qw(func1 func2);

if C<Module> defines func2() with prototype C<($;$)>, and func1() has
no prototypes.  (At least if C<Module> uses C<Exporter>'s C<import>,
otherwise it is a fatal error.)

If the module C<Module> is not loaded yet, then the above declaration
declares functions func1() and func2() in the current package.  When
these functions are called, they load the package C<Module> if needed,
and substitute themselves with the correct definitions.

=begin _deprecated

   use Module qw(Module::func3);

will work and is the equivalent to:

   use Module qw(func3);

It is not a very useful feature and has been deprecated.

=end _deprecated


=head1 WARNING

Using C<autouse> will move important steps of your program's execution
from compile time to runtime.  This can

=over 4

=item *

Break the execution of your program if the module you C<autouse>d has
some initialization which it expects to be done early.

=item *

hide bugs in your code since important checks (like correctness of
prototypes) is moved from compile time to runtime.  In particular, if
the prototype you specified on C<autouse> line is wrong, you will not
find it out until the corresponding function is executed.  This will be
very unfortunate for functions which are not always called (note that
for such functions C<autouse>ing gives biggest win, for a workaround
see below).

=back

To alleviate the second problem (partially) it is advised to write
your scripts like this:

  use Module;
  use autouse Module => qw(carp($) croak(&$));
  carp "this carp was predeclared and autoused ";

The first line ensures that the errors in your argument specification
are found early.  When you ship your application you should comment
out the first line, since it makes the second one useless.

=head1 AUTHOR

Ilya Zakharevich (ilya@math.ohio-state.edu)

=head1 SEE ALSO

perl(1).

=cut

Filemanager

Name Type Size Permission Actions
App Folder 0755
Archive Folder 0755
Attribute Folder 0755
B Folder 0755
CPAN Folder 0755
Class Folder 0755
Compress Folder 0755
Config Folder 0755
DBM_Filter Folder 0755
Devel Folder 0755
Encode Folder 0755
ExtUtils Folder 0755
File Folder 0755
Filter Folder 0755
Getopt Folder 0755
HTTP Folder 0755
I18N Folder 0755
IO Folder 0755
IPC Folder 0755
JSON Folder 0755
LWP Folder 0755
Locale Folder 0755
Log Folder 0755
Math Folder 0755
Memoize Folder 0755
Module Folder 0755
Net Folder 0755
Object Folder 0755
Package Folder 0755
Perl Folder 0755
PerlIO Folder 0755
Pod Folder 0755
Search Folder 0755
Term Folder 0755
Test Folder 0755
Text Folder 0755
Thread Folder 0755
Tie Folder 0755
Time Folder 0755
URI Folder 0755
Unicode Folder 0755
User Folder 0755
Version Folder 0755
encoding Folder 0755
overload Folder 0755
pod Folder 0755
unicore Folder 0755
vendor_perl Folder 0755
warnings Folder 0755
AnyDBM_File.pm File 2.56 KB 0644
AutoLoader.pm File 14.66 KB 0644
AutoSplit.pm File 19.18 KB 0644
Benchmark.pm File 27.87 KB 0644
CORE.pod File 2.7 KB 0644
CPAN.pm File 132.91 KB 0644
DB.pm File 18.43 KB 0644
DBM_Filter.pm File 14.06 KB 0644
DirHandle.pm File 1.52 KB 0644
Dumpvalue.pm File 16.5 KB 0644
English.pm File 4.34 KB 0644
FileCache.pm File 5.44 KB 0644
FileHandle.pm File 6.62 KB 0644
FindBin.pm File 4.45 KB 0644
LWP.pm File 21.15 KB 0644
Memoize.pm File 34.4 KB 0644
NEXT.pm File 18.05 KB 0644
PerlIO.pm File 10.19 KB 0644
Safe.pm File 24.03 KB 0644
SelectSaver.pm File 1.05 KB 0644
SelfLoader.pm File 16.97 KB 0644
Symbol.pm File 4.68 KB 0644
Test.pm File 28.13 KB 0644
Thread.pm File 8.09 KB 0644
UNIVERSAL.pm File 6.97 KB 0644
URI.pm File 33.01 KB 0644
XSLoader.pm File 9.99 KB 0644
_charnames.pm File 29.8 KB 0644
autouse.pm File 4.14 KB 0644
base.pm File 6.37 KB 0644
bigint.pm File 17.44 KB 0644
bignum.pm File 18.23 KB 0644
bigrat.pm File 14.11 KB 0644
blib.pm File 2.04 KB 0644
bytes.pm File 2.96 KB 0644
bytes_heavy.pl File 758 B 0644
charnames.pm File 19.22 KB 0644
deprecate.pm File 3.01 KB 0644
diagnostics.pm File 17.96 KB 0644
dumpvar.pl File 14.96 KB 0644
feature.pm File 11.06 KB 0644
fields.pm File 9.28 KB 0644
filetest.pm File 3.91 KB 0644
if.pm File 1.13 KB 0644
integer.pm File 3.19 KB 0644
less.pm File 3.13 KB 0644
locale.pm File 2.72 KB 0644
lwpcook.pod File 9.05 KB 0644
lwptut.pod File 24.89 KB 0644
open.pm File 7.83 KB 0644
overload.pm File 52.66 KB 0644
overloading.pm File 1.77 KB 0644
perl5db.pl File 302.79 KB 0644
perlfaq.pm File 94 B 0644
sigtrap.pm File 7.46 KB 0644
sort.pm File 5.95 KB 0644
strict.pm File 3.84 KB 0644
subs.pm File 845 B 0644
utf8.pm File 7.6 KB 0644
utf8_heavy.pl File 30.1 KB 0644
vars.pm File 2.3 KB 0644
vmsish.pm File 4.22 KB 0644
warnings.pm File 18.34 KB 0644