File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5

ðŸ“ ..
ðŸ“„ AnyDBM_File.pm(2.56 KB)
ðŸ“ Attribute
ðŸ“„ AutoLoader.pm(15.43 KB)
ðŸ“„ AutoSplit.pm(19.18 KB)
ðŸ“ B
ðŸ“„ Benchmark.pm(30.3 KB)
ðŸ“„ CORE.pod(3.11 KB)
ðŸ“ CPAN
ðŸ“ Class
ðŸ“ Compress
ðŸ“ Config
ðŸ“„ DB.pm(18.48 KB)
ðŸ“ DBM_Filter
ðŸ“„ DBM_Filter.pm(14.05 KB)
ðŸ“ Devel
ðŸ“„ DirHandle.pm(1.52 KB)
ðŸ“„ Dumpvalue.pm(17.14 KB)
ðŸ“„ English.pm(4.65 KB)
ðŸ“ ExtUtils
ðŸ“ File
ðŸ“„ FileCache.pm(5.44 KB)
ðŸ“„ FileHandle.pm(6.63 KB)
ðŸ“„ FindBin.pm(4.45 KB)
ðŸ“ Getopt
ðŸ“ I18N
ðŸ“ IO
ðŸ“ IPC
ðŸ“„ Internals.pod(2.52 KB)
ðŸ“ Locale
ðŸ“ Math
ðŸ“ Memoize
ðŸ“„ Memoize.pm(35.34 KB)
ðŸ“ Module
ðŸ“„ NEXT.pm(18.4 KB)
ðŸ“ Net
ðŸ“„ PerlIO.pm(10.21 KB)
ðŸ“ Pod
ðŸ“„ Safe.pm(24.49 KB)
ðŸ“ Search
ðŸ“„ SelectSaver.pm(1.05 KB)
ðŸ“„ SelfLoader.pm(17.28 KB)
ðŸ“„ Symbol.pm(4.69 KB)
ðŸ“ Term
ðŸ“„ Test.pm(29.35 KB)
ðŸ“ Text
ðŸ“ Thread
ðŸ“„ Thread.pm(8.09 KB)
ðŸ“ Tie
ðŸ“ Time
ðŸ“„ UNIVERSAL.pm(6.44 KB)
ðŸ“ URI
ðŸ“„ URI.pm(33.97 KB)
ðŸ“ Unicode
ðŸ“ User
ðŸ“„ XSLoader.pm(11 KB)
ðŸ“„ _charnames.pm(32.39 KB)
ðŸ“„ autouse.pm(4.14 KB)
ðŸ“„ base.pm(10.72 KB)
ðŸ“„ blib.pm(2.04 KB)
ðŸ“„ bytes.pm(3.67 KB)
ðŸ“„ bytes_heavy.pl(758 B)
ðŸ“„ charnames.pm(20.38 KB)
ðŸ“„ deprecate.pm(3.01 KB)
ðŸ“„ diagnostics.pm(18.59 KB)
ðŸ“„ dumpvar.pl(15.19 KB)
ðŸ“ encoding
ðŸ“„ feature.pm(16.68 KB)
ðŸ“„ fields.pm(9.27 KB)
ðŸ“„ filetest.pm(3.91 KB)
ðŸ“„ if.pm(3.26 KB)
ðŸ“„ integer.pm(3.18 KB)
ðŸ“„ less.pm(3.13 KB)
ðŸ“„ locale.pm(4.74 KB)
ðŸ“„ meta_notation.pm(2.07 KB)
ðŸ“„ open.pm(7.83 KB)
ðŸ“ overload
ðŸ“„ overload.pm(52.06 KB)
ðŸ“„ overloading.pm(1.77 KB)
ðŸ“„ perl5db.pl(309 KB)
ðŸ“ pod
ðŸ“„ sigtrap.pm(7.43 KB)
ðŸ“„ sort.pm(5.94 KB)
ðŸ“„ strict.pm(4.63 KB)
ðŸ“„ subs.pm(848 B)
ðŸ“ unicore
ðŸ“„ utf8.pm(8.9 KB)
ðŸ“„ utf8_heavy.pl(30.87 KB)
ðŸ“„ vars.pm(2.36 KB)
ðŸ“ vendor_perl
ðŸ“„ vmsish.pm(4.21 KB)
ðŸ“ warnings
ðŸ“„ warnings.pm(43.71 KB)

Editing: if.pm

package if;

$VERSION = '0.0606';

sub work {
  my $method = shift() ? 'import' : 'unimport';
  unless (@_ >= 2) {
    my $type = ($method eq 'import') ? 'use' : 'no';
    die "Too few arguments to '$type if' (some code returning an empty list in list context?)"
  }
  return unless shift;		# CONDITION

my $p = $_[0];		# PACKAGE
  (my $file = "$p.pm") =~ s!::!/!g;
  require $file;		# Works even if $_[0] is a keyword (like open)
  my $m = $p->can($method);
  goto &$m if $m;
}

sub import   { shift; unshift @_, 1; goto &work }
sub unimport { shift; unshift @_, 0; goto &work }

1;
__END__

=head1 NAME

if - C<use> a Perl module if a condition holds (also can C<no> a module)

=head1 SYNOPSIS

use if CONDITION, MODULE => ARGUMENTS;
  no if CONDITION, MODULE => ARGUMENTS;

=head1 DESCRIPTION

The C<if> module is used to conditionally load or unload another module.
The construct

use if CONDITION, MODULE => ARGUMENTS;

will load MODULE only if CONDITION evaluates to true.
The above statement has no effect unless C<CONDITION> is true.
If the CONDITION does evaluate to true, then the above line has
the same effect as:

use MODULE ARGUMENTS;

The use of C<< => >> above provides necessary quoting of C<MODULE>.
If you don't use the fat comma (eg you don't have any ARGUMENTS),
then you'll need to quote the MODULE.

=head2 EXAMPLES

The following line is taken from the testsuite for L<File::Map>:

use if $^O ne 'MSWin32', POSIX => qw/setlocale LC_ALL/;

If run on any operating system other than Windows,
this will import the functions C<setlocale> and C<LC_ALL> from L<POSIX>.
On Windows it does nothing.

The following is used to L<deprecate> core modules beyond a certain version of Perl:

use if $] > 5.016, 'deprecate';

This line is taken from L<Text::Soundex> 3.04,
and marks it as deprecated beyond Perl 5.16.
If you C<use Text::Soundex> in Perl 5.18, for example,
and you have used L<warnings>,
then you'll get a warning message
(the deprecate module looks to see whether the
calling module was C<use>'d from a core library directory,
and if so, generates a warning),
unless you've installed a more recent version of L<Text::Soundex> from CPAN.

You can also specify to NOT use something:

no if $] ge 5.021_006, warnings => "locale";

This warning category was added in the specified Perl version (a development
release).  Without the C<'if'>, trying to use it in an earlier release would
generate an unknown warning category error.

=head1 BUGS

The current implementation does not allow specification of the
required version of the module.

=head1 SEE ALSO

L<Module::Requires> can be used to conditionally load one or modules,
with constraints based on the version of the module.
Unlike C<if> though, L<Module::Requires> is not a core module.

L<Module::Load::Conditional> provides a number of functions you can use to
query what modules are available, and then load one or more of them at runtime.

L<provide> can be used to select one of several possible modules to load,
based on what version of Perl is running.

=head1 AUTHOR

Ilya Zakharevich L<mailto:ilyaz@cpan.org>.

=head1 COPYRIGHT AND LICENCE

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

X7ROOT File Manager

Editing: if.pm

Upload File

Create Folder