package Example;
use Exporter;
@ISA = 'Exporter';
$VERSION = 1.02;

use strict;
use vars qw(@EXPORT_OK);

my %METHODS = (
  foo => 'bar',
  bo  => 'baz',
);

@EXPORT_OK = (keys %METHODS);

foreach my $method (keys %METHODS) {
  no strict 'refs';
  *$method = sub {
    return $METHODS{ $method };
  };
}

1;