diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 16:04:51 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 16:04:51 -0600 |
commit | b274df4c9da24b117a22e287acd03b3fa87233a8 (patch) | |
tree | 602aba197c8752ea4253bc8fbb950fb373f92903 /lib/Bread/Board/Declare.pm | |
parent | 61839366b807e9e8f6818020508d765efed945b5 (diff) | |
download | bread-board-declare-b274df4c9da24b117a22e287acd03b3fa87233a8.tar.gz bread-board-declare-b274df4c9da24b117a22e287acd03b3fa87233a8.zip |
rename MooseX::Bread::Board -> Bread::Board::Declare
Diffstat (limited to 'lib/Bread/Board/Declare.pm')
-rw-r--r-- | lib/Bread/Board/Declare.pm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/lib/Bread/Board/Declare.pm b/lib/Bread/Board/Declare.pm new file mode 100644 index 0000000..51ec744 --- /dev/null +++ b/lib/Bread/Board/Declare.pm @@ -0,0 +1,36 @@ +package Bread::Board::Declare; +use Moose::Exporter; + +use Bread::Board (); + +my (undef, undef, $init_meta) = Moose::Exporter->build_import_methods( + install => ['import', 'unimport'], + class_metaroles => { + attribute => ['Bread::Board::Declare::Meta::Role::Attribute'], + class => ['Bread::Board::Declare::Meta::Role::Class'], + instance => ['Bread::Board::Declare::Meta::Role::Instance'], + }, + (Moose->VERSION >= 1.9900 + ? (role_metaroles => { + applied_attribute => + ['Bread::Board::Declare::Meta::Role::Attribute'], + }) + : ()), + base_class_roles => ['Bread::Board::Declare::Role::Object'], +); + +sub init_meta { + my $package = shift; + my %options = @_; + if (my $meta = Class::MOP::class_of($options{for_class})) { + if ($meta->isa('Class::MOP::Class')) { + my @supers = $meta->superclasses; + $meta->superclasses('Bread::Board::Container') + if @supers == 1 && $supers[0] eq 'Moose::Object'; + } + } + $package->$init_meta(%options); +} + + +1; |