package Foo;
require Bar;

sub import {
    my $class = shift; # first param is class name

    if (@_) {
        Bar->import(shift); # that's passed along
                            # with 'use Foo qw(x);'
    }
}
# more stuff...

1;