PATH:
usr
/
share
/
perl5
/
vendor_perl
/
CPAN
# -*- 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;
[-] Module.pm
[open]
[-] Admin.pm
[open]
[-] FirstTime.pm
[open]
[+]
..
[-] Index.pm
[open]
[+]
API
[-] DeferredCode.pm
[open]
[+]
Kwalify
[+]
Meta
[+]
FTP
[-] Author.pm
[open]
[-] Distribution.pm
[open]
[-] Version.pm
[open]
[-] Queue.pm
[open]
[-] HandleConfig.pm
[open]
[-] Meta.pm
[open]
[-] FTP.pm
[open]
[-] Distroprefs.pm
[open]
[-] Kwalify.pm
[open]
[-] Tarzip.pm
[open]
[-] Prompt.pm
[open]
[-] Debug.pm
[open]
[-] URL.pm
[open]
[-] Plugin.pm
[open]
[-] CacheMgr.pm
[open]
[-] Complete.pm
[open]
[-] Distrostatus.pm
[open]
[-] Shell.pm
[open]
[+]
Plugin
[-] InfoObj.pm
[open]
[-] Mirrors.pm
[open]
[-] Bundle.pm
[open]
[-] Nox.pm
[open]
[+]
LWP
[+]
Exception
[+]
HTTP
[-] DistnameInfo.pm
[open]