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: URL.pm
# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- # vim: ts=4 sts=4 sw=4: package CPAN::URL; use overload '""' => "as_string", fallback => 1; # accessors: TEXT(the url string), FROM(DEF=>defaultlist,USER=>urllist), # planned are things like age or quality use vars qw( $VERSION ); $VERSION = "5.5"; sub new { my($class,%args) = @_; bless { %args }, $class; } sub as_string { my($self) = @_; $self->text; } sub text { my($self,$set) = @_; if (defined $set) { $self->{TEXT} = $set; } $self->{TEXT}; } 1;
Upload File
Create Folder