1# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- 2# vim: ts=4 sts=4 sw=4: 3package CPAN::URL; 4use overload '""' => "as_string", fallback => 1; 5# accessors: TEXT(the url string), FROM(DEF=>defaultlist,USER=>urllist), 6# planned are things like age or quality 7 8use vars qw( 9 $VERSION 10); 11$VERSION = "5.5"; 12 13sub new { 14 my($class,%args) = @_; 15 bless { 16 %args 17 }, $class; 18} 19sub as_string { 20 my($self) = @_; 21 $self->text; 22} 23sub text { 24 my($self,$set) = @_; 25 if (defined $set) { 26 $self->{TEXT} = $set; 27 } 28 $self->{TEXT}; 29} 30 311; 32