File Coverage

blib/lib/CPAN/URL.pm
Criterion Covered Total %
statement 13 14 92.8
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 3 0.0
total 19 24 79.1


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