X7ROOT File Manager
Current Path:
/usr/share/perl5/vendor_perl/CPAN
usr
/
share
/
perl5
/
vendor_perl
/
CPAN
/
ðŸ“
..
ðŸ“
API
📄
Admin.pm
(7.6 KB)
📄
Author.pm
(6.68 KB)
📄
Bundle.pm
(9.6 KB)
📄
CacheMgr.pm
(7.48 KB)
📄
Complete.pm
(5.88 KB)
📄
Debug.pm
(2.05 KB)
📄
DeferredCode.pm
(189 B)
📄
Distribution.pm
(159.97 KB)
📄
Distroprefs.pm
(11.71 KB)
📄
Distrostatus.pm
(972 B)
ðŸ“
Exception
ðŸ“
FTP
📄
FTP.pm
(41.63 KB)
📄
FirstTime.pm
(70.29 KB)
ðŸ“
HTTP
📄
HandleConfig.pm
(22.75 KB)
📄
Index.pm
(21.7 KB)
📄
InfoObj.pm
(6.75 KB)
ðŸ“
Kwalify
📄
Kwalify.pm
(3.35 KB)
ðŸ“
LWP
ðŸ“
Meta
📄
Meta.pm
(29.56 KB)
📄
Mirrors.pm
(16.3 KB)
📄
Module.pm
(21.87 KB)
📄
Nox.pm
(953 B)
ðŸ“
Plugin
📄
Plugin.pm
(3.14 KB)
📄
Prompt.pm
(567 B)
📄
Queue.pm
(6.78 KB)
📄
Shell.pm
(71.88 KB)
📄
Tarzip.pm
(16.32 KB)
📄
URL.pm
(588 B)
📄
Version.pm
(4.29 KB)
Editing: Distrostatus.pm
# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::Distrostatus; use overload '""' => "as_string", fallback => 1; use vars qw($something_has_failed_at); use vars qw( $VERSION ); $VERSION = "5.5"; sub new { my($class,$arg) = @_; my $failed = substr($arg,0,2) eq "NO"; if ($failed) { $something_has_failed_at = $CPAN::CurrentCommandId; } bless { TEXT => $arg, FAILED => $failed, COMMANDID => $CPAN::CurrentCommandId, TIME => time, }, $class; } sub something_has_just_failed () { defined $something_has_failed_at && $something_has_failed_at == $CPAN::CurrentCommandId; } sub commandid { shift->{COMMANDID} } sub failed { shift->{FAILED} } sub text { my($self,$set) = @_; if (defined $set) { $self->{TEXT} = $set; } $self->{TEXT}; } sub as_string { my($self) = @_; $self->text; } 1;
Upload File
Create Folder