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 7     7   39 use overload '""' => "as_string", fallback => 1;
  7         14  
  7         46  
5             # accessors: TEXT(the url string), FROM(DEF=>defaultlist,USER=>urllist),
6             # planned are things like age or quality
7              
8 7         1229 use vars qw(
9             $VERSION
10 7     7   535 );
  7         15  
11             $VERSION = "5.5";
12              
13             sub new {
14 17     17 0 121 my($class,%args) = @_;
15 17         156 bless {
16             %args
17             }, $class;
18             }
19             sub as_string {
20 6     6 0 11 my($self) = @_;
21 6         19 $self->text;
22             }
23             sub text {
24 6     6 0 7 my($self,$set) = @_;
25 6 50       18 if (defined $set) {
26 0         0 $self->{TEXT} = $set;
27             }
28 6         38 $self->{TEXT};
29             }
30              
31             1;