unit module TestImports;

    sub bar is export  { say "bar sub" }
    sub baz is export { say "baz sub" }
    #exported in AP Tag
    constant APPART is export(:AP) = 174;

    # All theses are Not exported but visible by package invocation.:
    my $var = 'He heu hey';
    my $aar = 'He heu hey';
    my $vaa = 'He heu hey';
    my $kar = 'He heu hey';
    my $vor = 'He heu hey';

    constant A = 234; #eg TestImports::A

    #exported in tag MYTAG
    my package EXPORT::MYTAG {
       constant TOTITOTO = "patchamama";
       constant INTER = "jfklDJ";
       constant WANDER = "whoou";
       constant WANDER_FULL = "whoou";
       constant WANDER3FULL = "whoou";
    }
}