package Bravo;
use strict;
use Alpha;

BEGIN {
        use Exporter ();
        use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
        $VERSION     = 0.01;
        @ISA         = qw (Exporter);
        @EXPORT      = qw (bar);
        @EXPORT_OK   = qw (bar);
        %EXPORT_TAGS = ( all => [qw/bar/]);
}

sub bar {
        foo();
}

1;