42 lm_J*j"Tf`˪bѿ 0"lm_J*j"TfY'ţ h50 File not found. "!lm_J2 @qn1h λU!#!/usr/bin/sh prefix=/usr exec_prefix=/usr includedir=/usr/include if [ "`ldd /bin/sh | grep lib64`" = "" ] then libdir=${exec_prefix}/lib else libdir=${exec_prefix}/lib64 fi cflags= libs= usage() { cat < 'CODE', '$' => 'SCALAR', '%' => 'HASH', '@' => 'ARRAY', '*' => 'GLOB', ); our %IMPORTED; # This will be used to check if an import arg is a version number my %NUMERIC = map +($_ => 1), 0 .. 9; sub IMPORTER_MENU() { return ( export_ok => [qw/optimal_import/], export_anon => { import => sub { my $from = shift; my @caller = caller(0); _version_check($from, \@caller, shift @_) if @_ && $NUMERIC{substr($_[0], 0, 1)}; my $file = _mod_to_file($from); _load_file(\@caller, $file) unless $INC{$file}; return if optimal_import($from, $caller[0], \@caller, @_); my $self = __PACKAGE__->new( from => $from, caller => \@caller, ); $self->do_import($caller[0], @_); }, }, ); } ########################################################################### # # These are class methods # import and unimport are what you would expect. # import_into and unimport_from are the indirect forms you can use in other # package import() methods. # # These all attempt to do a fast optimal-import if possible, then fallback to # the full-featured import that constructs an object when needed. # sub import { my $class = shift; my @caller = caller(0); _version_check($class, \@caller, shift @_) if @_ && $NUMERIC{substr($_[0], 0, 1)}; return unless @_; my ($from, @args) = @_; my $file = _mod_to_file($from); _load_file(\@caller, $file) unless $INC{$file}; return if optimal_import($from, $caller[0], \@caller, @args); my $self = $class->new( from => $from, caller => \@caller, ); $sel