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   6209 use strict;
  16         21  
  16         365  
4 16     16   46 use warnings;
  16         20  
  16         331  
5              
6 16     16   64 use parent qw/Enbld::Target::Attribute/;
  16         31  
  16         86  
7              
8 16     16   904 use Carp;
  16         141  
  16         2326  
9              
10             sub validate {
11 857     857 0 1846 my ( $self, $string ) = @_;
12              
13 857         1573 $self->SUPER::validate( $string );
14              
15 834 100       1708 if ( $string =~ /\s/ ) {
16 12         21 my $type = ref( $self );
17 12         40 $type =~ s/.*:://;
18 12         441 require Enbld::Exception;
19 12         54 croak( Enbld::Exception->new(
20             "Attribute '$type' includes space character", $string
21             ) );
22             }
23              
24 822         1035 return $string;
25             }
26              
27             1;