sub oo_generate {
    my $self = shift;
    return func_generate(@_);
}

sub func_generate {
    my ($i, $j, $and_other_bad_variable_names) = @_;
...
}