# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::Prompt;
use overload '""' => "as_string";
use vars qw($prompt);
use vars qw(
$VERSION
);
$VERSION = "5.5";
$prompt = "cpan> ";
$CPAN::CurrentCommandId ||= 0;
sub new {
bless {}, shift;
}
sub as_string {
my $word = "cpan";
unless ($CPAN::META->{LOCK}) {
$word = "nolock_cpan";
}
if ($CPAN::Config->{commandnumber_in_prompt}) {
sprintf "$word\[%d]> ", $CPAN::CurrentCommandId;
} else {
"$word> ";
}
}
1;
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| API | Folder | 0755 |
|
|
| Exception | Folder | 0755 |
|
|
| FTP | Folder | 0755 |
|
|
| HTTP | Folder | 0755 |
|
|
| Kwalify | Folder | 0755 |
|
|
| LWP | Folder | 0755 |
|
|
| Author.pm | File | 6.68 KB | 0644 |
|
| Bundle.pm | File | 9.03 KB | 0644 |
|
| CacheMgr.pm | File | 7.48 KB | 0644 |
|
| Complete.pm | File | 5.85 KB | 0644 |
|
| Config.pm | File | 9.32 KB | 0644 |
|
| Debug.pm | File | 2.05 KB | 0644 |
|
| DeferredCode.pm | File | 189 B | 0644 |
|
| Distribution.pm | File | 145.09 KB | 0644 |
|
| Distroprefs.pm | File | 10.84 KB | 0644 |
|
| Distrostatus.pm | File | 972 B | 0644 |
|
| FTP.pm | File | 41.19 KB | 0644 |
|
| FirstTime.pm | File | 66.98 KB | 0644 |
|
| HandleConfig.pm | File | 22.61 KB | 0644 |
|
| Index.pm | File | 21.43 KB | 0644 |
|
| InfoObj.pm | File | 6.75 KB | 0644 |
|
| Kwalify.pm | File | 3.35 KB | 0644 |
|
| Mirrors.pm | File | 14.55 KB | 0644 |
|
| Module.pm | File | 21.52 KB | 0644 |
|
| Nox.pm | File | 928 B | 0644 |
|
| Prompt.pm | File | 567 B | 0644 |
|
| Queue.pm | File | 6.31 KB | 0644 |
|
| Shell.pm | File | 68.45 KB | 0644 |
|
| Tarzip.pm | File | 15.69 KB | 0644 |
|
| URL.pm | File | 588 B | 0644 |
|
| Version.pm | File | 4.21 KB | 0644 |
|