From 8ad579f26a1c74d5685491df55b57e694e54e087 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 20 Feb 2011 02:04:52 -0600 Subject: initial implementation --- lib/MooseX/Bread/Board/Meta/Role/Class.pm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create 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 new file mode 100644 index 0000000..652d0b7 --- /dev/null +++ b/lib/MooseX/Bread/Board/Meta/Role/Class.pm @@ -0,0 +1,19 @@ +package MooseX::Bread::Board::Meta::Role::Class; +use Moose::Role; + +use Bread::Board::Service; + +has services => ( + traits => ['Array'], + isa => 'ArrayRef[Bread::Board::Service]', + default => sub { [] }, + handles => { + add_service => 'push', + services => 'elements', + has_services => 'count', + }, +); + +no Moose::Role; + +1; -- cgit v1.2.3-54-g00ecf