The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package SampleApp::Web::C::Root;
use strict;
use warnings;

sub index {
    my ($class, $c) =@_;
    $c->render("index.mt");
}

1;