From b274df4c9da24b117a22e287acd03b3fa87233a8 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Mon, 21 Feb 2011 16:04:51 -0600 Subject: rename MooseX::Bread::Board -> Bread::Board::Declare --- lib/MooseX/Bread/Board/Meta/Role/Class.pm | 32 ------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 lib/MooseX/Bread/Board/Meta/Role/Class.pm (limited to 'lib/MooseX/Bread/Board/Meta/Role/Class.pm') diff --git a/lib/MooseX/Bread/Board/Meta/Role/Class.pm b/lib/MooseX/Bread/Board/Meta/Role/Class.pm deleted file mode 100644 index 66c18ac..0000000 --- a/lib/MooseX/Bread/Board/Meta/Role/Class.pm +++ /dev/null @@ -1,32 +0,0 @@ -package MooseX::Bread::Board::Meta::Role::Class; -use Moose::Role; - -use Bread::Board::Service; -use List::MoreUtils qw(any); - -sub get_all_services { - my $self = shift; - return map { $_->associated_service } - grep { $_->has_associated_service } - grep { Moose::Util::does_role($_, 'MooseX::Bread::Board::Meta::Role::Attribute') } - $self->get_all_attributes; -} - -before superclasses => sub { - my $self = shift; - - return unless @_; - - die "Multiple inheritance is not supported for MooseX::Bread::Board classes" - if @_ > 1; - - return if $_[0]->isa('Bread::Board::Container'); - - die "Cannot inherit from " . join(', ', @_) - . " because MooseX::Bread::Board classes must inherit" - . " from Bread::Board::Container"; -}; - -no Moose::Role; - -1; -- cgit v1.2.3-54-g00ecf