#!/usr/bin/perl 

use strict;
use warnings;
use Devel::Peek;

my @types = qw(
  text
);

foreach my $type (@types) {
    my $function = uc $type;
    my $type_sub;

    no strict 'refs';
    $type_sub = \&$function;
    *$function = sub {
        warn Devel::Peek::CvGV($type_sub);
    };
}
*TINYTEXT = \&TEXT;

TINYTEXT();
__END__
*main::TEXT at ovid.pl line 18.