view release on metacpan or  search on metacpan

lib/Acme/Goedelize.pm  view on Meta::CPAN

               'w' => '23',
               'x' => '24',
               'y' => '25',
               'z' => '26',
               '.' => '27'
);

### Methods

sub new {
  bless {}, shift;
}

sub to_number {
  my ($self, $text) = @_;

  my %link = %a_to_n;
  
  ### Check the text
  croak "The string must contain only alpha chars and spaces"
    if ($text !~ /^[a-zA-Z\s]*$/);