MojocliciousでTengを使う設定 ref: http://qiita.com/uchiko/items/689e33f91cad8c1119be

DB.pm

package MyApp::DB;
use parent 'Teng';
use DateTime;

# プラグイン有効
__PACKAGE__->load_plugin('Pager');
__PACKAGE__->load_plugin('Count');

# hookの設定
use Class::Method::Modifiers;

# updateメソッド時にupdated_atに現在時刻を自動入力する
before update => sub {
    my ($self, $table_name, $update_row_data, $update_condition) = @_;
    if ( !$update_row_data->{updated_at} ) {
        $update_row_data->{updated_at} = DateTime->now->set_time_zone('Asia/Tokyo')->strftime('%Y-%m-%d %H:%M:%S');
    }
};

# insertメソッド時にupdated_at/created_atに現在時刻を自動入力する
before insert => sub {
    my ($self, $table_name, $row_data) = @_;
    $row_data->{created_at} = DateTime->now->set_time_zone('Asia/Tokyo')->strftime('%Y-%m-%d %H:%M:%S');
    $row_data->{updated_at} = DateTime->now->set_time_zone('Asia/Tokyo')->strftime('%Y-%m-%d %H:%M:%S');
};

# fast_insertメソッド時にupdated_at/created_atに現在時刻を自動入力する
before fast_insert => sub {
    my ($self, $table_name, $row_data) = @_;
    $row_data->{created_at} = DateTime->now->set_time_zone('Asia/Tokyo')->strftime('%Y-%m-%d %H:%M:%S');
    $row_data->{updated_at} = DateTime->now->set_time_zone('Asia/Tokyo')->strftime('%Y-%m-%d %H:%M:%S');
};


1;

file0.txt

$ cpanm Teng Class::Method::Modifiers

myapp.pl

get '/' => sub {
    my $self = shift;

    $self->stash->{users} = [$self->db->search('users')];

    $self->render();
};

Schema.pm

package AM::DB::Schema;
use Teng::Schema::Declare;
1;