File Coverage

blib/lib/oEdtk/AddrField.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 23 69.5


line stmt bran cond sub pod time code
1             package oEdtk::AddrField;
2            
3 1     1   575 use strict;
  1         3  
  1         40  
4 1     1   5 use warnings;
  1         2  
  1         31  
5            
6 1     1   7 use oEdtk::Main qw(oe_uc_sans_accents);
  1         2  
  1         167  
7 1     1   5 use base 'oEdtk::Field';
  1         2  
  1         207  
8             our $VERSION = 0.01;
9            
10             sub process {
11 0     0 0   my ($self, $data) = @_;
12            
13 0           $data =~ s/^\s+//;
14 0           $data =~ s/\s+$//;
15 0           oe_uc_sans_accents($data);
16 0           return uc($data);
17             }
18            
19             1;