The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Test::Hyper::Template::HTC::Plugin::Lang;

use strict;
use warnings;

use Test::More;

use base 'Test::Class::Hyper';

sub startup : Test(startup => 2) {
    use_ok 'HTML::Template::Compiled';
    use_ok 'Hyper::Template::HTC::Plugin::Lang'
}

sub lang : Test(1) {
    my $htc;
    $htc = HTML::Template::Compiled->new(
        plugin => [ 'Hyper::Template::HTC::Plugin::Lang' ],
        scalarref => \'<%LANG%><%= lang %><%/LANG%>',
        debug => 0,
    );

    is( $htc->output(), 'de');

}

1;