diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Module/Author/Fake.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CPANPLUS/Module/Author/Fake.pm | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPANPLUS/Module/Author/Fake.pm b/Master/tlpkg/tlperl/lib/CPANPLUS/Module/Author/Fake.pm deleted file mode 100644 index 15de66b0dc5..00000000000 --- a/Master/tlpkg/tlperl/lib/CPANPLUS/Module/Author/Fake.pm +++ /dev/null @@ -1,83 +0,0 @@ -package CPANPLUS::Module::Author::Fake; -use deprecate; - - -use CPANPLUS::Module::Author; -use CPANPLUS::Internals; -use CPANPLUS::Error; - -use strict; -use vars qw[@ISA $VERSION]; -use Params::Check qw[check]; - -$VERSION = "0.9135"; - -@ISA = qw[CPANPLUS::Module::Author]; - -$Params::Check::VERBOSE = 1; - -=pod - -=head1 NAME - -CPANPLUS::Module::Author::Fake - dummy author object for CPANPLUS - -=head1 SYNOPSIS - - my $auth = CPANPLUS::Module::Author::Fake->new( - author => 'Foo Bar', - email => 'luser@foo.com', - cpanid => 'FOO', - _id => $cpan->id, - ); - -=head1 DESCRIPTION - -A class for creating fake author objects, for shortcut use internally -by CPANPLUS. - -Inherits from C<CPANPLUS::Module::Author>. - -=head1 METHODS - -=head2 new( _id => DIGIT ) - -Creates a dummy author object. It can take the same options as -C<< CPANPLUS::Module::Author->new >>, but will fill in default ones -if none are provided. Only the _id key is required. - -=cut - -sub new { - my $class = shift; - my %hash = @_; - - my $tmpl = { - author => { default => 'CPANPLUS Internals' }, - email => { default => 'cpanplus-info@lists.sf.net' }, - cpanid => { default => 'CPANPLUS' }, - _id => { default => CPANPLUS::Internals->_last_id }, - }; - - my $args = check( $tmpl, \%hash ) or return; - - my $obj = CPANPLUS::Module::Author->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: |