File Coverage

blib/lib/Data/Domain/URI.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1 1     1   15 use 5.008;
  1         5  
  1         37  
2 1     1   5 use strict;
  1         1  
  1         26  
3 1     1   5 use warnings;
  1         2  
  1         47  
4              
5             package Data::Domain::URI;
6             our $VERSION = '1.100850';
7             # ABSTRACT: Data domain classes for URIs
8 1     1   993 use Data::Domain::SemanticAdapter;
  1         169762  
  1         12  
9 1     1   273 use Exporter qw(import);
  1         2  
  1         142  
10             our %map = (
11             URI_Fax => 'URI::fax',
12             URI_File => 'URI::file',
13             URI_FTP => 'URI::ftp',
14             URI_HTTP => 'URI::http',
15             );
16             our %EXPORT_TAGS = (util => [ keys %map ],);
17             our @EXPORT_OK = @{ $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ] };
18             Data::Domain::SemanticAdapter::install_shortcuts(%map);
19             1;
20              
21              
22             __END__