File Coverage

blib/lib/Catmandu/Fix/Condition/is_web_uri.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1              
2             our $VERSION = '0.15';
3              
4             use Catmandu::Sane;
5 1     1   352812 use Moo;
  1         9  
  1         5  
6 1     1   150 use Data::Validate::URI;
  1         2  
  1         4  
7 1     1   681 use Catmandu::Fix::Has;
  1         40940  
  1         42  
8 1     1   9  
  1         1  
  1         8  
9             has path => (fix_arg => 1);
10              
11             with 'Catmandu::Fix::Condition::SimpleAllTest';
12              
13             my ($self, $var) = @_;
14             "(is_value(${var}) && Data::Validate::URI::is_web_uri(${var}))";
15 6     6 0 28304 }
16 6         22  
17             =head1 NAME
18              
19             Catmandu::Fix::Condition::is_web_uri - check of a field contains an HTTP or HTTPS URI
20              
21             =head1 SYNOPSIS
22              
23             if is_web_uri(uri_field)
24             ...
25             else
26             ...
27             end
28              
29             =head1 SEE ALSO
30              
31             L<Catmandu::Fix>
32              
33             =cut
34              
35             1;