package Foo::Bar;
use base qw(Class::Accessor);

package Main;
use strict;
use warnings;
use UNIVERSAL::moniker;

my $foo = Foo::Bar->;new;
print $foo->;moniker, "\n";
print $foo->;plural_moniker, "\n";