The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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