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();   
}