summaryrefslogtreecommitdiffstats
path: root/chromium/third_party/cygwin/lib/perl5/5.10/CPANPLUS/Module/Author/Fake.pm
diff options
context:
space:
mode:
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/5.10/CPANPLUS/Module/Author/Fake.pm')
-rw-r--r--chromium/third_party/cygwin/lib/perl5/5.10/CPANPLUS/Module/Author/Fake.pm80
1 files changed, 0 insertions, 80 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/5.10/CPANPLUS/Module/Author/Fake.pm b/chromium/third_party/cygwin/lib/perl5/5.10/CPANPLUS/Module/Author/Fake.pm
deleted file mode 100644
index 115c29ed7b0..00000000000
--- a/chromium/third_party/cygwin/lib/perl5/5.10/CPANPLUS/Module/Author/Fake.pm
+++ /dev/null
@@ -1,80 +0,0 @@
-package CPANPLUS::Module::Author::Fake;
-
-
-use CPANPLUS::Module::Author;
-use CPANPLUS::Internals;
-use CPANPLUS::Error;
-
-use strict;
-use vars qw[@ISA];
-use Params::Check qw[check];
-
-@ISA = qw[CPANPLUS::Module::Author];
-
-$Params::Check::VERBOSE = 1;
-
-=pod
-
-=head1 NAME
-
-CPANPLUS::Module::Author::Fake
-
-=head1 SYNOPSIS
-
- my $auth = CPANPLUS::Module::Author::Fake->new(
- name => '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: