# Testing module for exporting subs and UIDs

package expo;


use lib "lib"; use Params::Clean;
use base "Exporter";
our @EXPORT=qw/stuff things ID/;	

use UID qw/ID FOO/;
# We're not exporting FOO, so it has to be used fully-qualified from other packages


sub stuff
{
	my ($answer, @rest) = args ID, REST;
	return \$answer, \@rest;
}

sub things
{
	my ($answer, @rest) = args FOO, REST;
	return \$answer, \@rest;
}