File Coverage

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


line stmt bran cond sub pod time code
1             package Data::Validate::WithYAML::Plugin::URL;
2              
3 2     2   129105 use warnings;
  2         12  
  2         67  
4 2     2   12 use strict;
  2         4  
  2         39  
5              
6 2     2   9 use Carp;
  2         4  
  2         112  
7              
8 2     2   1035 use Regexp::Common qw(URI);
  2         9324  
  2         8  
9              
10             # ABSTRACT: Plugin to check URL
11              
12             our $VERSION = '0.02';
13              
14              
15             sub check {
16 13     13 1 3790 my ($class, $value) = @_;
17            
18 13 100       168 croak "no value to check" unless defined $value;
19            
20 12         22 my $return = 0;
21 12 100       61 if( $value =~ m{\A $RE{URI}{HTTP}{-scheme => qr/https?/} \z}x ){
22 5         969 $return = 1;
23             }
24 12         1001 return $return;
25             }
26              
27              
28             1;
29              
30             __END__