view release on metacpan or  search on metacpan

t/01multiple.t  view on Meta::CPAN

use Acme::Your "Foo";

{
    your ($beer, $fault);

    $beer  = "foamy";
    $fault = "muttley";


    is($Foo::beer,  "foamy",   "first var okay");
    is($Foo::fault, "muttley", "second var okay");
}