view release on metacpan or  search on metacpan

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

package Acme::NumericMethod;
use v5.8.8;
use strict;
our $VERSION='0.05';
use Lingua::EN::Words2Nums;

sub import {
    my $package = (caller)[0];
    no strict 'refs';
    *{"${package}::AUTOLOAD"} = sub {
        no strict;
        my $n = $AUTOLOAD;
        $n =~ s/.*:://;
        return words2nums($n);
    };
}

1;