lib/Sepia/CPAN.pm

   1 package Sepia::CPAN;
   2 use CPAN;
   3 use LWP::Simple;
   4
   5 sub init
   6 {
   7       CPAN::HandleConfig->load;
   8       CPAN::Shell::setup_output;
   9       CPAN::Index->reload;
  10 }
  11
  12 sub list
  13 {
  14     grep $_->inst_file, CPAN::Shell->expand('Module', shift || '/./');
  15 }
  16
  17 sub outdated
  18 {
  19     grep !$_->uptodate, list @_;
  20 }
  21
  22 ## stolen from CPAN::Shell...
  23 sub readme
  24 {
  25     my $dist = CPAN::Shell->expand('Module', shift);
  26     return unless $dist;
  27     $dist = $dist->cpan_file;
  28     # my ($dist) = $self->id;
  29     my ($sans, $suffix) = $dist =~ /(.+)\.(tgz|tar[\._-]gz|tar\.Z|zip)$/;
  30     my ($local_file);
  31     my ($local_wanted) = File::Spec->catfile(
  32         $CPAN::Config->{keep_source_where}, "authors", "id",
  33         split(/\//,"$sans.readme"));
  34     $local_file = CPAN::FTP->localize("authors/id/$sans.readme", $local_wanted);
  35     local (*IN, $/);
  36     open IN, $local_wanted;
  37     my $ret = <IN>;
  38     close IN;
  39     $ret;
  40 }
  41
  42 sub perldoc
  43 {
  44     get($CPAN::Defaultdocs . shift);
  45 }
  46
  47 sub install
  48 {
  49     my $dist = CPAN::Shell->expand('Module', shift);
  50     $dist->install if $dist;
  51 }