That's a fine way to export subs if you simply want subs from the current package to be exported to the calling package, and while it may be much faster than the likes of Exporter, speed isn't really an issue when it comes to importing.

While you could get this working under strict, it would mean going through many hoops to avoid symbolic referencing, so this is one of those cases where turning off strictures is a good idea

## limit the disabling of strict refs to this scope
{
  ## let us do symbolic referencing
  no strict 'refs'

  sub import {
    ## get the caller once
    my $pkg = caller;

    for(qw/ sub1 sub2 /) {
      ## don't over-write existing subs
      *{"$pkg\::$_"} = \&$_
        unless defined &{"$pkg\::$_"};
    }
  }
}
[download]

The only reason I can think for using Exporter apart from laziness, is it can export symbols to a higher calling frame, otherwise I reckon Juerd's Exporter::Tidy is pretty ideal (although it could do with optional exporting, time for a patch methinks ...)¹.

¹ just realised this doesn't make any sense. move along folks