GetPost.pm

package EMS::GetPost;

use strict;
use warnings;
use Sub::Install;

sub import {
    my $pkg = caller;

    my $any = $pkg->can('any');

    Sub::Install::install_sub({
        code => sub { $any->([qw/GET POST/], @_) },
        into => $pkg,
        as   => 'getpost',
    });
}

__PACKAGE__;