The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test;
BEGIN { plan tests => 7 }

use lib qw(testlib);
use abbreviation qw(Foo FooBar::Baz FooBar::Baz::Doh CAPS::On);

ok(Foo->new);
ok(FooBar::Baz->new);
ok(FB::Baz->new);
ok(FooBar::Baz::Doh->new);
ok(FB::B::Doh->new);
ok(CAPS::On->new);
ok(C::On->new);