PageRenderTime 16ms CodeModel.GetById 10ms app.highlight 3ms RepoModel.GetById 1ms app.codeStats 0ms

/lib/Teto/Tatsumaki/Handler.pm

http://github.com/motemen/Teto
Perl | 16 lines | 13 code | 3 blank | 0 comment | 0 complexity | 3b4e17d57a136b7bf0ee7af4cf233f38 MD5 | raw file
 1package Teto::Tatsumaki::Handler;
 2use strict;
 3use warnings;
 4use parent 'Tatsumaki::Handler';
 5use Teto::Control;
 6
 7sub controls {
 8    return our $Controls ||= {};
 9}
10
11sub build_control {
12    my $self = shift;
13    return $self->controls->{ $self->request->address } ||= Teto::Control->new;
14}
15
161;