File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	29	30	96.6

package Enbld::Target::AttributeExtension::RegEx;

use strict;
use warnings;

use Carp;

use parent qw/Enbld::Target::Attribute/;

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

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

    eval { "" =~ /$string/ };

    if ( $@ ) {
        my $type = ref( $self );
        $type =~ s/.*:://;

        require Enbld::Exception;
        croak( Enbld::Exception->new(
                "Attribute '$type' is NOT valid regular expression string",
                $string
                    ) );
    }

    return $string;
}

1;