lib/Moose/Meta/Role/Composite.pm

   1 package Moose::Meta::Role::Composite;
   2
   3 use strict;
   4 use warnings;
   5 use metaclass;
   6
   7 use Scalar::Util 'blessed';
   8
   9 our $VERSION   = '0.57';
  10 $VERSION = eval $VERSION;
  11 our $AUTHORITY = 'cpan:STEVAN';
  12
  13 use base 'Moose::Meta::Role';
  14
  15 # NOTE:
  16 # we need to override the ->name
  17 # method from Class::MOP::Package
  18 # since we don't have an actual
  19 # package for this.
  20 # - SL
  21 __PACKAGE__->meta->add_attribute('name' => (reader => 'name'));
  22
  23 # NOTE:
  24 # Again, since we don't have a real
  25 # package to store our methods in,
  26 # we use a HASH ref instead.
  27 # - SL
  28 __PACKAGE__->meta->add_attribute('methods' => (
  29     reader  => 'get_method_map',
  30     default => sub { {} }
  31 ));
  32
  33 sub new {
  34     my ($class, %params) = @_;
  35     # the roles param is required ...
  36     ($_->isa('Moose::Meta::Role'))
  37         || Moose->throw_error("The list of roles must be instances of Moose::Meta::Role, not $_")
  38             foreach @{$params{roles}};
  39     # and the name is created from the
  40     # roles if one has not been provided
  41     $params{name} ||= (join "|" => map { $_->name } @{$params{roles}});
  42     $class->_new(\%params);
  43 }
  44
  45 # NOTE:
  46 # we need to override this cause
  47 # we dont have that package I was
  48 # talking about above.
  49 # - SL
  50 sub alias_method {
  51     my ($self, $method_name, $method) = @_;
  52     (defined $method_name && $method_name)
  53         || Moose->throw_error("You must define a method name");
  54
  55     # make sure to bless the
  56     # method if nessecary
  57     $method = $self->method_metaclass->wrap(
  58         $method,
  59         package_name => $self->name,
  60         name         => $method_name
  61     ) if !blessed($method);
  62
  63     $self->get_method_map->{$method_name} = $method;
  64 }
  65
  66 1;
  67
  68 __END__
  69
  70 =pod
  71
  72 =head1 NAME
  73
  74 Moose::Meta::Role::Composite - An object to represent the set of roles
  75
  76 =head1 DESCRIPTION
  77
  78 =head2 METHODS
  79
  80 =over 4
  81
  82 =item B<new>
  83
  84 =item B<meta>
  85
  86 =item B<name>
  87
  88 =item B<get_method_map>
  89
  90 =item B<alias_method>
  91
  92 =back
  93
  94 =head1 BUGS
  95
  96 All complex software has bugs lurking in it, and this module is no
  97 exception. If you find a bug please either email me, or add the bug
  98 to cpan-RT.
  99
 100 =head1 AUTHOR
 101
 102 Stevan Little E<lt>stevan@iinteractive.comE<gt>
 103
 104 =head1 COPYRIGHT AND LICENSE
 105
 106 Copyright 2006-2008 by Infinity Interactive, Inc.
 107
 108 L<http://www.iinteractive.com>
 109
 110 This library is free software; you can redistribute it and/or modify
 111 it under the same terms as Perl itself.
 112
 113 =cut