use warnings; use strict;
package Foo::Common;
use Exporter;
push our @ISA, Exporter::;
push our @EXPORT, qw"
        %red %green @blue %yellow
        $brown $purple
";
our %red = ("foo", "bar");