/usr/local/CPAN/oEdtk/oEdtk/AddrField.pm

• package oEdtk::AddrField
  • process
• EOF

package oEdtk::AddrField;

use strict;
use warnings;

use oEdtk::Main qw(maj_sans_accents);
use base 'oEdtk::Field';
our $VERSION		= 0.01;

sub process {
	my ($self, $data) = @_;

	$data =~ s/^\s+//;
	$data =~ s/\s+$//;
	maj_sans_accents($data);
	return uc($data);
}

1;