package ParentModule;
use strict;

sub base_foo {};
sub base_baz {};

sub import {
    my ($class,@routines) = @_;
    my $target = caller;

    # Install the requested routines in the target package
    for my $name (@routines) {
        no strict 'refs';
        *{"$target\::$name"} = \&{"base_$name"};
    };
};

1;