File Coverage

blib/lib/URI/virtual.pm
Criterion Covered Total %
statement 41 47 87.2
branch 13 22 59.0
condition n/a
subroutine 6 7 85.7
pod 0 4 0.0
total 60 80 75.0


line stmt bran cond sub pod time code
1             # vim: ts=4 sw=4
2              
3             =head1 NAME
4              
5             URI::virtual - virtual URI, refers to a list of prefixes.
6              
7             =cut
8             package URI::virtual;
9              
10             =head1 VERSION
11              
12             Version 0.02
13              
14             =cut
15             our $VERSION = '0.02';
16             =pod
17              
18             package URI::virtual;
19              
20             =head1 REQUIRES
21              
22             URI::http, Carp
23              
24             =cut
25 3     3   178407 use warnings;
  3         6  
  3         139  
26 3     3   2473 use URI::http;
  3         24920  
  3         153  
27             our(@ISA) = qw(URI::http);
28              
29              
30             =head1 SYNOPSIS
31              
32             #
33             use lib "$ENV{PWD}/lib";
34             use URI;
35             use Data::Dumper;
36             my @uris = (
37             URI->new("virtual://CPAN/authors/"),
38             map { URI->new("virtual://CPAN/modules/")->resolve() } 1 .. 5,
39             );
40             for ( @uris ) {
41             print ref, " => ", $_, "\n";
42             };
43             __DATA__