| Subject: | Lingua::Stem::Snowball::stem does not allow subclassing |
i'm subclassing stemmer to implement exceptions and other features
everything worked with 0.3, but when i've upgraded to 0.7 stem always return undef ...
line 'ref($self) eq __PACKAGE__' prevent it
so maybe better to change line
if (ref($self) eq __PACKAGE__) {
to
if (ref($self) ne 'ARRAY') {
I hope for soon fixing
Thank you
-----------------[original code]------------------
sub stem {
my $self = shift;
my ($words, $rr);
if (ref($self) eq __PACKAGE__) {
($words, $rr) = @_;
} else {