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