lib/CPAN/Prompt.pm

   1 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
   2 # vim: ts=4 sts=4 sw=4:
   3 package CPAN::Prompt;
   4 use overload '""' => "as_string";
   5 use vars qw($prompt);
   6 use vars qw(
   7             $VERSION
   8 );
   9 $VERSION = "5.5";
  10
  11
  12 $prompt = "cpan> ";
  13 $CPAN::CurrentCommandId ||= 0;
  14 sub new {
  15     bless {}, shift;
  16 }
  17 sub as_string {
  18     my $word = "cpan";
  19     unless ($CPAN::META->{LOCK}) {
  20         $word = "nolock_cpan";
  21     }
  22     if ($CPAN::Config->{commandnumber_in_prompt}) {
  23         sprintf "$word\[%d]> ", $CPAN::CurrentCommandId;
  24     } else {
  25         "$word> ";
  26     }
  27 }
  28
  29 1;