package Common;

use strict;
use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

@ISA         = qw(Exporter);
@EXPORT      = ();
@EXPORT_OK   = qw(get_uppercase);
%EXPORT_TAGS = ( All => [qw(&get_uppercase)]);

sub get_uppercase {
   my ($name) = @_;
   return uc($name);
}
1;