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   11554 use strict;
  16         39  
  16         694  
4 16     16   154 use warnings;
  16         24  
  16         523  
5              
6 16     16   76 use parent qw/Enbld::Target::Attribute/;
  16         24  
  16         141  
7              
8 16     16   1196 use Carp;
  16         38  
  16         3420  
9              
10             sub validate {
11 857     857 0 1459 my ( $self, $string ) = @_;
12              
13 857         3448 $self->SUPER::validate( $string );
14              
15 834 100       2777 if ( $string =~ /\s/ ) {
16 12         32 my $type = ref( $self );
17 12         71 $type =~ s/.*:://;
18 12         111 require Enbld::Exception;
19 12         104 croak( Enbld::Exception->new(
20             "Attribute '$type' includes space character", $string
21             ) );
22             }
23              
24 822         3080 return $string;
25             }
26              
27             1;