File Coverage

blib/lib/DBIx/MoCo/Column/URI.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 20 23 86.9


line stmt bran cond sub pod time code
1             package DBIx::MoCo::Column::URI;
2 3     3   21 use strict;
  3         9  
  3         143  
3 3     3   21 use warnings;
  3         7  
  3         93  
4 3     3   3220 use URI;
  3         15963  
  3         49  
5              
6             sub URI {
7 9     9 0 20 my $self = shift;
8 9         54 return URI->new($$self);
9             }
10              
11             sub URI_as_string {
12 2     2 0 6 my $class = shift;
13 2 50       12 my $uri = shift or return;
14 2         48 return $uri->as_string;
15             }
16              
17             1;