File Manager

003 File Manager

Current Path: /usr/local/lib/perl5/5.32

📁 ..
📄 AnyDBM_File.pm(2.56 KB)
📁 App
📁 Archive
📁 Attribute
📄 AutoLoader.pm(15.43 KB)
📄 AutoSplit.pm(19.18 KB)
📁 B
📄 Benchmark.pm(30.3 KB)
📄 CORE.pod(3.11 KB)
📁 CPAN
📄 CPAN.pm(142.8 KB)
📁 Carp
📄 Carp.pm(35.12 KB)
📁 Class
📁 Compress
📁 Config
📄 DB.pm(18.48 KB)
📁 DBM_Filter
📄 DBM_Filter.pm(14.05 KB)
📁 Devel
📁 Digest
📄 Digest.pm(10.45 KB)
📄 DirHandle.pm(2.04 KB)
📄 Dumpvalue.pm(17.25 KB)
📁 Encode
📄 English.pm(4.65 KB)
📄 Env.pm(5.39 KB)
📁 Exporter
📄 Exporter.pm(18.36 KB)
📁 ExtUtils
📄 Fatal.pm(57.64 KB)
📁 File
📄 FileCache.pm(5.42 KB)
📄 FileHandle.pm(6.63 KB)
📁 Filter
📄 FindBin.pm(4.45 KB)
📁 Getopt
📁 HTTP
📁 I18N
📁 IO
📁 IPC
📄 Internals.pod(2.51 KB)
📁 JSON
📁 Locale
📁 Math
📁 Memoize
📄 Memoize.pm(35.34 KB)
📁 Module
📄 NEXT.pm(18.54 KB)
📁 Net
📁 Params
📁 Parse
📁 Perl
📁 PerlIO
📄 PerlIO.pm(14.1 KB)
📁 Pod
📄 Safe.pm(24.77 KB)
📁 Search
📄 SelectSaver.pm(1.05 KB)
📄 SelfLoader.pm(17.27 KB)
📄 Symbol.pm(4.69 KB)
📁 TAP
📁 Term
📁 Test
📄 Test.pm(29.34 KB)
📁 Test2
📄 Test2.pm(6.24 KB)
📁 Text
📁 Thread
📄 Thread.pm(8.09 KB)
📁 Tie
📁 Time
📄 UNIVERSAL.pm(6.44 KB)
📁 Unicode
📁 User
📄 XSLoader.pm(10.99 KB)
📄 _charnames.pm(33.35 KB)
📁 autodie
📄 autodie.pm(12.23 KB)
📄 autouse.pm(4.14 KB)
📄 base.pm(10.7 KB)
📄 bigint.pm(22.85 KB)
📄 bignum.pm(20.64 KB)
📄 bigrat.pm(15.78 KB)
📄 blib.pm(2.01 KB)
📄 bytes.pm(3.65 KB)
📄 bytes_heavy.pl(758 B)
📄 charnames.pm(20.44 KB)
📄 constant.pm(14.38 KB)
📄 deprecate.pm(4.5 KB)
📄 diagnostics.pm(18.85 KB)
📄 dumpvar.pl(15.19 KB)
📁 encoding
📄 experimental.pm(6.9 KB)
📄 feature.pm(18.56 KB)
📄 fields.pm(9.25 KB)
📄 filetest.pm(3.91 KB)
📄 if.pm(3.53 KB)
📄 integer.pm(3.18 KB)
📄 less.pm(3.13 KB)
📄 locale.pm(4.74 KB)
📁 mach
📄 meta_notation.pm(2.07 KB)
📄 ok.pm(967 B)
📄 open.pm(8.31 KB)
📁 overload
📄 overload.pm(52.05 KB)
📄 overloading.pm(1.77 KB)
📄 parent.pm(2.64 KB)
📁 perl
📄 perl5db.pl(309.69 KB)
📄 perlfaq.pm(77 B)
📁 pod
📄 sigtrap.pm(8.53 KB)
📄 sort.pm(3.82 KB)
📄 strict.pm(4.63 KB)
📄 subs.pm(901 B)
📁 unicore
📄 utf8.pm(10.18 KB)
📄 vars.pm(2.4 KB)
📁 version
📄 version.pm(1.93 KB)
📄 version.pod(9.6 KB)
📄 vmsish.pm(4.21 KB)
📁 warnings
📄 warnings.pm(49.35 KB)

Editing: if.pm

package if;

$VERSION = '0.0608';

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

=head1 SYNOPSIS

use if CONDITION, "MODULE", ARGUMENTS;
    no  if CONDITION, "MODULE", ARGUMENTS;

=head1 DESCRIPTION

=head2 C<use if>

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

use if CONDITION, "MODULE", ARGUMENTS;

... will load C<MODULE> only if C<CONDITION> evaluates to true; it has no
effect if C<CONDITION> evaluates to false.  (The module name, assuming it
contains at least one C<::>, must be quoted when C<'use strict "subs";'> is in
effect.)  If the CONDITION does evaluate to true, then the above line has the
same effect as:

use MODULE ARGUMENTS;

For example, the F<Unicode::UCD> module's F<charinfo> function will use two functions from F<Unicode::Normalize> only if a certain condition is met:

use if defined &DynaLoader::boot_DynaLoader,
        "Unicode::Normalize" => qw(getCombinClass NFD);

Suppose you wanted C<ARGUMENTS> to be an empty list, I<i.e.>, to have the
effect of:

use MODULE ();

You can't do this with the C<if> pragma; however, you can achieve
exactly this effect, at compile time, with:

BEGIN { require MODULE if CONDITION }

=head2 C<no if>

The C<no if> construct is mainly used to deactivate categories of warnings
when those categories would produce superfluous output under specified
versions of F<perl>.

For example, the C<redundant> category of warnings was introduced in
Perl-5.22.  This warning flags certain instances of superfluous arguments to
C<printf> and C<sprintf>.  But if your code was running warnings-free on
earlier versions of F<perl> and you don't care about C<redundant> warnings in
more recent versions, you can call:

use warnings;
    no if $] >= 5.022, q|warnings|, qw(redundant);

my $test    = { fmt  => "%s", args => [ qw( x y ) ] };
    my $result  = sprintf $test->{fmt}, @{$test->{args}};

The C<no if> construct assumes that a module or pragma has correctly
implemented an C<unimport()> method -- but most modules and pragmata have not.
That explains why the C<no if> construct is of limited applicability.

=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.

The L<provide> module from CPAN can be used to select one of several possible
modules to load based on the version of Perl that 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

003 File Manager

Editing: if.pm

Upload File

Create Folder