File Coverage

blib/lib/Regexp/Common/URI/telnet.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::telnet;
2              
3 71     71   225 use Regexp::Common qw /pattern clean no_defaults/;
  71         149  
  71         302  
4 71     71   237 use Regexp::Common::URI qw /register_uri/;
  71         72  
  71         2527  
5 71     71   236 use Regexp::Common::URI::RFC1738 qw /$user $password $host $port/;
  71         72  
  71         5351  
6              
7 71     71   247 use strict;
  71         72  
  71         1257  
8 71     71   210 use warnings;
  71         80  
  71         1468  
9              
10 71     71   204 use vars qw /$VERSION/;
  71         81  
  71         5687  
11             $VERSION = '2016060801';
12              
13              
14             my $telnet_uri = "(?k:(?k:telnet)://(?:(?k:(?k:$user)(?::(?k:$password))?)\@)?"
15             . "(?k:(?k:$host)(?::(?k:$port))?)(?k:/)?)";
16              
17             register_uri telnet => $telnet_uri;
18              
19             pattern name => [qw (URI telnet)],
20             create => $telnet_uri,
21             ;
22              
23             1;
24              
25             __END__