t/install_hack.t t/lib/CPAN.pm t/mock.t t/process_options.t t/process_setup_options.t @@ -5,3 +5,4 @@ blib Makefile .DS_Store Makefile.old +cover_db .gitignore @@ -142,17 +142,10 @@ Runs a `make test` on the specified modules. # force install modules ( must use -i ) cpan -fi CGI::Minimal URI -=head1 TO DO - - -=head1 BUGS -* none noted - -=head1 SEE ALSO +=head2 Methods -Most behaviour, including environment variables and configuration, -comes directly from CPAN.pm. +=over 4 =cut @@ -217,6 +210,7 @@ my @option_order = ( @META_OPTIONS, @CPAN_OPTIONS ); sub _stupid_interface_hack_for_non_rtfmers { + no warnings 'uninitialized'; shift @ARGV if( $ARGV[0] eq 'install' and @ARGV > 1 ) } @@ -226,18 +220,12 @@ sub _process_options # if no arguments, just drop into the shell if( 0 == @ARGV ) { CPAN::shell(); exit 0 } - - Getopt::Std::getopts( - join( '', - map { - $Method_table{ $_ }[ $Method_table_index{takes_args} ] ? "$_:" : $_ - } @option_order - ), - - \%options - ); - - \%options; + else + { + 1 + + + } } sub _process_setup_options @@ -533,6 +521,19 @@ sub _show_author_mods 1; +=back + +=head1 TO DO + +=head1 BUGS + +* none noted + +=head1 SEE ALSO + +Most behaviour, including environment variables and configuration, +comes directly from CPAN.pm. + =head1 SOURCE AVAILABILITY This code is in Github: lib/Cpan.pm @@ -1,3 +1,6 @@ compile.t pod.t pod_coverage.t +mock.t +install_hack.t +process_options.t t/test_manifest 1f350475f0d6a86fe78ef303748e5e445270cd06 brian d foy brian@stonehenge.com http://github.com/briandfoy/cpan-script/commit/46e9aa810c3c0fcd89278717448637c5ec355f0b 46e9aa810c3c0fcd89278717448637c5ec355f0b 2008-09-19T14:00:48-07:00 2008-09-19T14:00:48-07:00 * Moving most of the code into App::Cpan. * Starting to improve the test suite to actually test code 7bcc3b21bb6b1a765e42bda9ccf42be8120b82dd brian d foy brian@stonehenge.com