File Coverage

blib/lib/Regexp/Common/URI/wais.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Regexp::Common::URI::wais;
2              
3 71     71   227 use Regexp::Common qw /pattern clean no_defaults/;
  71         65  
  71         302  
4 71     71   252 use Regexp::Common::URI qw /register_uri/;
  71         82  
  71         2555  
5 71         6012 use Regexp::Common::URI::RFC1738 qw /$host $port
6 71     71   236 $search $database $wtype $wpath/;
  71         68  
7              
8 71     71   253 use strict;
  71         74  
  71         1086  
9 71     71   216 use warnings;
  71         75  
  71         1669  
10              
11 71     71   202 use vars qw /$VERSION/;
  71         124  
  71         6531  
12             $VERSION = '2016060801';
13              
14              
15             my $scheme = 'wais';
16             my $uri = "(?k:(?k:$scheme)://(?k:$host)(?::(?k:$port))?/(?k:(?k:$database)"
17             . "(?k:[?](?k:$search)|/(?k:$wtype)/(?k:$wpath))?))";
18              
19             register_uri $scheme => $uri;
20              
21             pattern name => [qw (URI WAIS)],
22             create => $uri,
23             ;
24              
25             1;
26              
27             __END__