mt.pm

use strict;
use warnings;

package mt;
use Module::Compile -base;
use Text::MicroTemplate qw/render_mt/;

sub pmc_compile {
    my ($class, $source, $extra) = @_;
    my @vars = do {
        ( my $vars = $extra->{use} ) =~ s/^\s*use\s+mt\s*//;
        eval "$vars";
    };

    render_mt($source, @vars)->as_string();
}

1;