package MyFlags;
use constant FooFlag => 42;
use constant BarFlag => 23;
use base 'Exporter';
BEGIN { @MyFlags::EXPORT_OK = qw( FooFlag BarFlag ); }
BEGIN { $::INC{'MyFlags.pm'} ||= __FILE__; }

package MyWidgetFactory;
use MyFlags qw( FooFlag );
print FooFlag . "\n";

package MyFlyingMonkey;
use MyFlags qw( FooFlag BarFlag );
print BarFlag . "\n";

##</code><code>##

package Potato;
use constant tuber => 1;

package main;
print Potato->tuber;