summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/if.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2011-02-17 12:20:49 +0000
commit316ee97c621496b0fe3267f57cce81bee44ca1e6 (patch)
treecb2cab1192b4f58a7971af19b213e980bceda4b4 /Master/tlpkg/tlperl/lib/if.pm
parentcd0f87b5d39480d85ad9bd4ee37f520f75bed560 (diff)
Moving old tlperl prior to committing new one
git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/if.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/if.pm56
1 files changed, 0 insertions, 56 deletions
diff --git a/Master/tlpkg/tlperl/lib/if.pm b/Master/tlpkg/tlperl/lib/if.pm
deleted file mode 100755
index 5f6bcc8ae16..00000000000
--- a/Master/tlpkg/tlperl/lib/if.pm
+++ /dev/null
@@ -1,56 +0,0 @@
-package if;
-
-$VERSION = '0.05';
-
-sub work {
- my $method = shift() ? 'import' : 'unimport';
- die "Too few arguments to `use if' (some code returning an empty list in list context?)"
- unless @_ >= 2;
- 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;
-
-=head1 DESCRIPTION
-
-The construct
-
- use if CONDITION, MODULE => ARGUMENTS;
-
-has no effect unless C<CONDITION> is true. In this case the effect is
-the same as of
-
- use MODULE ARGUMENTS;
-
-Above C<< => >> provides necessary quoting of C<MODULE>. If not used (e.g.,
-no ARGUMENTS to give), you'd better quote C<MODULE> yourselves.
-
-=head1 BUGS
-
-The current implementation does not allow specification of the
-required version of the module.
-
-=head1 AUTHOR
-
-Ilya Zakharevich L<mailto:perl-module-if@ilyaz.org>.
-
-=cut
-