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