|
sub validate {
my ( $self , $string ) = @_ ;
$self ->SUPER::validate( $string );
if ( $string =~ /\s/ ) {
my $type = ref ( $self );
$type =~ s/.*:://;
croak( Enbld::Exception->new(
"Attribute '$type' includes space character" , $string
) );
}
return $string ;
}
1;
|