/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
- package Teto::Tatsumaki::Handler;
- use strict;
- use warnings;
- use parent 'Tatsumaki::Handler';
- use Teto::Control;
- sub controls {
- return our $Controls ||= {};
- }
- sub build_control {
- my $self = shift;
- return $self->controls->{ $self->request->address } ||= Teto::Control->new;
- }
- 1;