Skip to content

Instantly share code, notes, and snippets.

@hatorikibble
Created March 5, 2015 12:10
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save hatorikibble/7823ca53f2e5bbf3d30f to your computer and use it in GitHub Desktop.
Save hatorikibble/7823ca53f2e5bbf3d30f to your computer and use it in GitHub Desktop.
Moose modify parameters
package Info2FLRequest;
use namespace::autoclean;
use MooseX::App::Simple;
use Moose::Util::TypeConstraints;
has 'sigelnb' => ( is => 'rw', isa => 'Str');
sub BUILD{
$self->_adapt_parameters();
}
sub _adapt_parameters {
my $self = shift;
my $tmp_sigel = undef;
$tmp_sigel = $self->sigelnb();
$tmp_sigel =~ s/ae/\xE4/goi;
$tmp_sigel =~ s/oe/\xF6/go;
$tmp_sigel =~ s/ue/\xFC/goi;
$self->sigelnb($tmp_sigel);
}
1;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment