File Coverage

blib/lib/Data/Validate/WithYAML/Plugin/URL.pm
Criterion Covered Total %
statement 18 18 100.0
branch 3 4 75.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 27 28 96.4


line stmt bran cond sub pod time code
1             package Data::Validate::WithYAML::Plugin::URL;
2              
3 2     2   137241 use warnings;
  2         7  
  2         89  
4 2     2   15 use strict;
  2         5  
  2         79  
5              
6 2     2   13 use Carp;
  2         9  
  2         1343  
7              
8 2     2   3462 use Regexp::Common qw(URI);
  2         22508  
  2         14  
9              
10             # ABSTRACT: Plugin to check URL
11              
12              
13             our $VERSION = '0.01';
14              
15              
16             sub check {
17 12     12 1 67141 my ($class, $value) = @_;
18            
19 12 50       54 croak "no value to check" unless defined $value;
20            
21 12         33 my $return = 0;
22 12 100       171 if( $value =~ m{\A $RE{URI}{HTTP}{-scheme => qr/https?/} \z}x ){
23 5         7091 $return = 1;
24             }
25 12         12420 return $return;
26             }
27              
28              
29             1;
30              
31             __END__