File Coverage

blib/lib/Enbld/Target/AttributeExtension/Word.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


line stmt bran cond sub pod time code
1             package Enbld::Target::AttributeExtension::Word;
2              
3 16     16   7446 use strict;
  16         26  
  16         635  
4 16     16   65 use warnings;
  16         18  
  16         498  
5              
6 16     16   62 use parent qw/Enbld::Target::Attribute/;
  16         19  
  16         105  
7              
8 16     16   1114 use Carp;
  16         24  
  16         2867  
9              
10             sub validate {
11 857     857 0 914 my ( $self, $string ) = @_;
12              
13 857         2001 $self->SUPER::validate( $string );
14              
15 834 100       2090 if ( $string =~ /\s/ ) {
16 12         29 my $type = ref( $self );
17 12         47 $type =~ s/.*:://;
18 12         137 require Enbld::Exception;
19 12         94 croak( Enbld::Exception->new(
20             "Attribute '$type' includes space character", $string
21             ) );
22             }
23              
24 822         1213 return $string;
25             }
26              
27             1;