Devel::KYTProfでうまくいくバージョン

kytprof_success_test.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Text::Xslate;
use Devel::KYTProf;
use Data::Section::Simple;

Devel::KYTProf->add_prof(
    "Text::Xslate",
    "render",
    sub {
        my ($orig, $self, $file, $args) = @_;
        return [sprintf '%s %s', "render", $file];
    }
);

my $tx = Text::Xslate->new(
    path => [ Data::Section::Simple ->new()->get_data_section(), ],
);

print $tx->render('test.tx');

__DATA__
@@ test.tx
test

@@ result
3.092 ms  [Text::Xslate]  render test.tx  | main:21
test