local-lib5/lib/perl5/i486-linux-gnu-thread-multi/MooseX/Role/WithOverloading/Meta/Role/Application/Composite.pm

   1 package MooseX::Role::WithOverloading::Meta::Role::Application::Composite;
   2 our $VERSION = '0.03';
   3
   4
   5 # ABSTRACT: Roles which support overloading
   6
   7 use Moose::Role;
   8 use namespace::autoclean;
   9
  10 with 'MooseX::Role::WithOverloading::Meta::Role::Application';
  11
  12 around apply_overloading => sub {
  13     my ($next, $self, $composite, $other) = @_;
  14     for my $role (@{ $composite->get_roles }) {
  15         $self->$next($role, $other);
  16     }
  17 };
  18
  19 1;
  20
  21 __END__
  22 =pod
  23
  24 =head1 NAME
  25
  26 MooseX::Role::WithOverloading::Meta::Role::Application::Composite - Roles which support overloading
  27
  28 =head1 VERSION
  29
  30 version 0.03
  31
  32 =head1 AUTHORS
  33
  34 Florian Ragwitz <rafl@debian.org>
  35 Tomas Doran <bobtfish@bobtfish.net>
  36
  37 =head1 COPYRIGHT AND LICENSE
  38
  39 This software is copyright (c) 2009 by Florian Ragwitz.
  40
  41 This is free software; you can redistribute it and/or modify it under
  42 the same terms as the Perl 5 programming language system itself.
  43
  44 =cut
  45