usr
/
share
/
perl5
/
vendor_perl
/
CPAN
/
Go to Home Directory
+
Upload
Create File
root@0UT1S:~$
Execute
By Order of Mr.0UT1S
[DIR] ..
N/A
[DIR] API
N/A
[DIR] Exception
N/A
[DIR] FTP
N/A
[DIR] HTTP
N/A
[DIR] Kwalify
N/A
[DIR] LWP
N/A
[DIR] Meta
N/A
[DIR] Plugin
N/A
Admin.pm
7.60 KB
Rename
Delete
Author.pm
6.68 KB
Rename
Delete
Bundle.pm
9.60 KB
Rename
Delete
CacheMgr.pm
7.48 KB
Rename
Delete
Complete.pm
5.88 KB
Rename
Delete
Debug.pm
2.05 KB
Rename
Delete
DeferredCode.pm
189 bytes
Rename
Delete
Distribution.pm
158.74 KB
Rename
Delete
Distroprefs.pm
11.71 KB
Rename
Delete
Distrostatus.pm
972 bytes
Rename
Delete
FTP.pm
41.63 KB
Rename
Delete
FirstTime.pm
70.05 KB
Rename
Delete
HandleConfig.pm
22.75 KB
Rename
Delete
Index.pm
21.70 KB
Rename
Delete
InfoObj.pm
6.75 KB
Rename
Delete
Kwalify.pm
3.35 KB
Rename
Delete
Meta.pm
29.56 KB
Rename
Delete
Mirrors.pm
16.30 KB
Rename
Delete
Module.pm
21.87 KB
Rename
Delete
Nox.pm
953 bytes
Rename
Delete
Plugin.pm
3.14 KB
Rename
Delete
Prompt.pm
567 bytes
Rename
Delete
Queue.pm
6.78 KB
Rename
Delete
Shell.pm
71.88 KB
Rename
Delete
Tarzip.pm
16.32 KB
Rename
Delete
URL.pm
588 bytes
Rename
Delete
Version.pm
4.29 KB
Rename
Delete
# -*- 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;
Save