TODO
use Taxon::Rank::Suffix;
sub init { my $self = shift;
my $p = $self->{pattern_parts};
my $suffix = Taxon::Rank::Suffix->new();
$self->{patterns} = $suffix->patterns();
}
use Taxon::Rank::Suffix;
sub init { my $self = shift;
my $p = $self->{pattern_parts};
my $suffix = Taxon::Rank::Suffix->new();
$self->{patterns} = $suffix->patterns();
}