The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Lingua::EN::Inflect qw(PL_N classical);
use Test::More 'no_plan';

# DEFAULT...

is PL_N('wildebeest') => 'wildebeests';        # classical 'herd' not active

# HERD PLURALS ACTIVATED...

classical herd => 1;
is PL_N('wildebeest') => 'wildebeest';         # classical 'herd' active

# OTHER CLASSICALS NOT ACTIVATED...

is PL_N('person')      => 'people';             # classical 'persons' not active
is PL_N('formula')     => 'formulas';           # classical 'ancient' not active
is PL_N('error', 0)    => 'errors';             # classical 'zero' not active
is PL_N('Sally')       => 'Sallys';             # classical 'names' active
is PL_N('brother')     => 'brothers';           # classical 'all' not active