#!/usr/bin/perl

use warnings;
use strict;

package TestBase;

use base 'Exporter';
our @EXPORT_OK = qw(do_this);

sub do_this
{
  my $self = shift;
  warn "doing_this to $self\n";
}

package Test1;
TestBase->import(qw(do_this));
use base 'Exporter';
our @EXPORT_OK = (@TestBase::EXPORT_OK);

package main;

Test1->import(qw(do_this));

do_this("some string");