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