X7ROOT File Manager
Current Path:
/usr/share/perl5/CPAN
usr
/
share
/
perl5
/
CPAN
/
📁
..
📁
API
📄
Admin.pm
(7.61 KB)
📄
Author.pm
(6.68 KB)
📄
Bundle.pm
(9.03 KB)
📄
CacheMgr.pm
(7.48 KB)
📄
Complete.pm
(5.85 KB)
📄
Config.pm
(2.14 KB)
📄
Debug.pm
(2.05 KB)
📄
DeferredCode.pm
(189 B)
📄
Distribution.pm
(145.09 KB)
📄
Distroprefs.pm
(10.84 KB)
📄
Distrostatus.pm
(972 B)
📁
Exception
📁
FTP
📄
FTP.pm
(41.19 KB)
📄
FirstTime.pm
(66.98 KB)
📁
HTTP
📄
HandleConfig.pm
(22.61 KB)
📄
Index.pm
(21.43 KB)
📄
InfoObj.pm
(6.75 KB)
📁
Kwalify
📄
Kwalify.pm
(3.35 KB)
📁
LWP
📄
Mirrors.pm
(14.55 KB)
📄
Module.pm
(21.52 KB)
📄
Nox.pm
(928 B)
📁
Plugin
📄
Plugin.pm
(3.14 KB)
📄
Prompt.pm
(567 B)
📄
Queue.pm
(6.31 KB)
📄
Shell.pm
(68.45 KB)
📄
Tarzip.pm
(15.69 KB)
📄
URL.pm
(588 B)
📄
Version.pm
(4.21 KB)
Editing: Prompt.pm
# -*- 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;
Upload File
Create Folder