diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-04-24 16:09:50 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2011-04-24 16:09:50 +0000 |
commit | be4bfe8362d7eec07140f543f8d44120395de88b (patch) | |
tree | 5319d8f2eb70aee0c9767da1162f3f4beeb455bd /Master/tlpkg/tlperl0/lib/CPANPLUS/Module/Fake.pm | |
parent | 9d5bc14f41bbd9219da5d024b1d6a164b51c8525 (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-x | Master/tlpkg/tlperl0/lib/CPANPLUS/Module/Fake.pm | 86 |
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: |