#!/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;
    $type_sub = sub {
        warn Devel::Peek::CvGV($type_sub);
    };
    no strict 'refs';
    *$function = $type_sub;
}
*TINYTEXT = \&TEXT;

TINYTEXT();