Catalyst::Plugin::Hookableの試案

ざっとこれだけ。多分これだけでいけるんじゃないかなぁ。

package Catalyst::Plugin::Hookable;

use strict;
use warnings;

our $VERSION = '0.01';

use base qw(
Class::Hookable
Class::Data::Inheritable
);

__PACKAGE__->mk_classdata(
hookable_stash => {},
);

undef *new;
1;

#FIXME