package Foo;

use warnings;
use strict;
use base 'Exporter';

our @EXPORT_OK = qw(
   some_data
   some_more_data
   fribble
);

sub some_data { 'foo' }
sub some_more_data { 'bar' }

my %gnarfles = (
    this => 1,
    that => 'one'
);

sub fribble {
    my $key = shift;
    if (exists $gnarfles{$key}) {
        return $gnarfles{$key};
    }
    else {
        die "No such value ($key)";
    }
}    

1;


##</code><code>##

use Foo qw'fribble some_data';

my $result = fribble($key);