<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;"># -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::Prompt;
use overload '""' =&gt; "as_string";
use vars qw($prompt);
use vars qw(
            $VERSION
);
$VERSION = "5.5";


$prompt = "cpan&gt; ";
$CPAN::CurrentCommandId ||= 0;
sub new {
    bless {}, shift;
}
sub as_string {
    my $word = "cpan";
    unless ($CPAN::META-&gt;{LOCK}) {
        $word = "nolock_cpan";
    }
    if ($CPAN::Config-&gt;{commandnumber_in_prompt}) {
        sprintf "$word\[%d]&gt; ", $CPAN::CurrentCommandId;
    } else {
        "$word&gt; ";
    }
}

1;
</pre></body></html>