Select Code to Download

    ....
    my ($class,$alias_for) = @_;
...
            return $class->SUPER::find_ids($params);
        });
     ....

  eval "package $class; sub find_ids { ..... }";

    ....
    my ($class,$alias_for) = @_;
...
            return $original_find_ids->($class,$params);
        });
     ....