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 72     72   241 use Regexp::Common qw /pattern clean no_defaults/;
  72         84  
  72         315  
4 72     72   279 use Regexp::Common::URI qw /register_uri/;
  72         83  
  72         2590  
5 72     72   231 use Regexp::Common::URI::RFC1738 qw /$user $password $host $port/;
  72         85  
  72         5750  
6              
7 72     72   269 use strict;
  72         78  
  72         1428  
8 72     72   220 use warnings;
  72         98  
  72         1659  
9              
10 72     72   319 use vars qw /$VERSION/;
  72         82  
  72         5983  
11             $VERSION = '2017040401';
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__