PATH:
usr
/
share
/
perl5
/
CPAN
# -*- 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;
[-] Distribution.pm
[edit]
[+]
HTTP
[-] Debug.pm
[edit]
[-] Nox.pm
[edit]
[-] Plugin.pm
[edit]
[+]
Plugin
[+]
..
[-] Module.pm
[edit]
[+]
Kwalify
[+]
Exception
[-] URL.pm
[edit]
[-] Admin.pm
[edit]
[-] Config.pm
[edit]
[-] Distroprefs.pm
[edit]
[-] FTP.pm
[edit]
[-] DeferredCode.pm
[edit]
[-] Queue.pm
[edit]
[-] Author.pm
[edit]
[-] Tarzip.pm
[edit]
[-] InfoObj.pm
[edit]
[-] Prompt.pm
[edit]
[+]
LWP
[-] Mirrors.pm
[edit]
[-] CacheMgr.pm
[edit]
[-] Distrostatus.pm
[edit]
[-] HandleConfig.pm
[edit]
[-] Index.pm
[edit]
[-] FirstTime.pm
[edit]
[-] Shell.pm
[edit]
[-] Bundle.pm
[edit]
[-] Kwalify.pm
[edit]
[+]
FTP
[+]
API
[-] Complete.pm
[edit]
[-] Version.pm
[edit]