my ($class,$alias_for) = @_;

    eval "package $class;"<<'SUB';
        sub find_ids {
            my ($class,$params) = @_;
            # Do something with $alias_for
            return SUPER::find_ids->($class,\%params);
        });
SUB