Acme::NumericMethod - I know numeric methods

Acme-NumericMethod documentation

Contained in the Acme-NumericMethod distribution.

Index

NAME
SYNOPSIS
AUTHOR
COPYRIGHT

Code Index:

package Acme::NumericMethod
- import
__END__
EOF

NAME

Acme::NumericMethod - I know numeric methods

SYNOPSIS

  use Acme::NumericMethod;
  print one(); # 1

AUTHOR

Kang-min Liu <gugod@gugod.org>

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See <http://www.perl.com/perl/misc/Artistic.html>

Acme-NumericMethod documentation

Contained in the Acme-NumericMethod distribution.

package Acme::NumericMethod;
use v5.8.8;
use strict;
our $VERSION='0.04';
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;
__END__