File Coverage

blib/lib/Enbld/Target/AttributeExtension/URL.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	27	28	96.4

package Enbld::Target::AttributeExtension::URL;

use strict;
use warnings;

use Carp;

use parent qw/Enbld::Target::AttributeExtension::Word/;

sub validate {
    my ( $self, $string ) = @_;

    $self->SUPER::validate( $string );

    my $pattern = q{s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+};

    if ( $string !~ /^$pattern$/ ) {
        my $type = ref( $self );
        $type =~ s/.*:://;
        require Enbld::Exception;
        croak( Enbld::Exception->new(
            "Attribute '$type' isn't valid URL string", $string
        ));
    }
}

1;