/lib/Teto/Tatsumaki/Handler.pm

 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;