sub {
        my ($cup, $code, $alt, $ext) = @_;
        ....
}