summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl0/lib/CPANPLUS/Module/Fake.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2011-04-24 16:09:50 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2011-04-24 16:09:50 +0000
commitbe4bfe8362d7eec07140f543f8d44120395de88b (patch)
tree5319d8f2eb70aee0c9767da1162f3f4beeb455bd /Master/tlpkg/tlperl0/lib/CPANPLUS/Module/Fake.pm
parent9d5bc14f41bbd9219da5d024b1d6a164b51c8525 (diff)
2nd try to remove old tlperl0
git-svn-id: svn://tug.org/texlive/trunk@22185 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/CPANPLUS/Module/Fake.pm')
-rwxr-xr-xMaster/tlpkg/tlperl0/lib/CPANPLUS/Module/Fake.pm86
1 files changed, 0 insertions, 86 deletions
diff --git a/Master/tlpkg/tlperl0/lib/CPANPLUS/Module/Fake.pm b/Master/tlpkg/tlperl0/lib/CPANPLUS/Module/Fake.pm
deleted file mode 100755
index 84d0233cf83..00000000000
--- a/Master/tlpkg/tlperl0/lib/CPANPLUS/Module/Fake.pm
+++ /dev/null
@@ -1,86 +0,0 @@
-package CPANPLUS::Module::Fake;
-
-
-use CPANPLUS::Error;
-use CPANPLUS::Module;
-use CPANPLUS::Module::Author::Fake;
-use CPANPLUS::Internals;
-
-use strict;
-use vars qw[@ISA];
-use Params::Check qw[check];
-
-@ISA = qw[CPANPLUS::Module];
-$Params::Check::VERBOSE = 1;
-
-=pod
-
-=head1 NAME
-
-CPANPLUS::Module::Fake
-
-=head1 SYNOPSIS
-
- my $obj = CPANPLUS::Module::Fake->new(
- module => 'Foo',
- path => 'ftp/path/to/foo',
- author => CPANPLUS::Module::Author::Fake->new,
- package => 'fake-1.1.tgz',
- _id => $cpan->_id,
- );
-
-=head1 DESCRIPTION
-
-A class for creating fake module objects, for shortcut use internally
-by CPANPLUS.
-
-Inherits from C<CPANPLUS::Module>.
-
-=head1 METHODS
-
-=head2 new( module => $mod, path => $path, package => $pkg, [_id => DIGIT] )
-
-Creates a dummy module object from the above parameters. It can
-take more options (same as C<< CPANPLUS::Module->new >> but the above
-are required.
-
-=cut
-
-sub new {
- my $class = shift;
- my %hash = @_;
-
- local $Params::Check::ALLOW_UNKNOWN = 1;
-
- my $tmpl = {
- module => { required => 1 },
- path => { required => 1 },
- package => { required => 1 },
- _id => { default => CPANPLUS::Internals->_last_id },
- author => { default => '' },
- };
-
- my $args = check( $tmpl, \%hash ) or return;
-
- $args->{author} ||= CPANPLUS::Module::Author::Fake->new(
- _id => $args->{_id} );
-
- my $obj = CPANPLUS::Module->new( %$args ) or return;
-
- unless( $obj->_id ) {
- error(loc("No '%1' specified -- No CPANPLUS object associated!",'_id'));
- return;
- }
-
- ### rebless object ###
- return bless $obj, $class;
-}
-
-1;
-
-# Local variables:
-# c-indentation-style: bsd
-# c-basic-offset: 4
-# indent-tabs-mode: nil
-# End:
-# vim: expandtab shiftwidth=4: