/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

  1. package Teto::Tatsumaki::Handler;
  2. use strict;
  3. use warnings;
  4. use parent 'Tatsumaki::Handler';
  5. use Teto::Control;
  6. sub controls {
  7. return our $Controls ||= {};
  8. }
  9. sub build_control {
  10. my $self = shift;
  11. return $self->controls->{ $self->request->address } ||= Teto::Control->new;
  12. }
  13. 1;