package MyTools::Bar ;

use strict ;
use warnings ;
use Exporter qw(import) ;

use MyTools::Foo ;
use MyTools::Blee ;

our @EXPORT ;
our @EXPORT_OK ;
our %EXPORT_TAGS ;

BEGIN {
    @EXPORT = qw(
        bar
        bar_foo
        bar_blee
        ) ; 
    %EXPORT_TAGS = ( 'all' => [ @EXPORT ], ) ;
    @EXPORT_OK = ( @{ $EXPORT_TAGS{ 'all' } } ) ;
    }

sub bar {
    my $bar = 'bar' ;
    return $bar ;
    }

sub bar_foo {
    my $bar = 'bar' ;
    my $foo = foo() ;
    return join '-' , $bar , $foo ;
    }

sub bar_blee {
    my $bar = 'bar' ;
    my $blee = blee() ;
    return join '-' ,  $bar , $blee ;
    }

1