Initial Commit

database/perl/vendor/lib/MooseX/ClassAttribute/Trait/Role/Composite.pm

@@ -0,0 +1,119 @@
+package MooseX::ClassAttribute::Trait::Role::Composite;
+
+use strict;
+use warnings;
+
+our $VERSION = '0.29';
+
+use Moose::Util::MetaRole;
+use Moose::Util qw(does_role);
+
+use namespace::autoclean;
+use Moose::Role;
+
+with 'MooseX::ClassAttribute::Trait::Role';
+
+sub _merge_class_attributes {
+    my $self = shift;
+
+    my @all_attributes;
+    foreach my $role ( @{ $self->get_roles() } ) {
+        if ( does_role( $role, 'MooseX::ClassAttribute::Trait::Role' ) ) {
+            push @all_attributes,
+                map { $role->get_class_attribute($_) }
+                $role->get_class_attribute_list();
+        }
+    }
+
+    my %seen;
+
+    foreach my $attribute (@all_attributes) {
+        my $name = $attribute->name();
+
+        if ( exists $seen{$name} ) {
+            next if $seen{$name} == $attribute;
+
+            require Moose;
+            Moose->throw_error( "Role '"
+                    . $self->name()
+                    . "' has encountered a class attribute conflict "
+                    . "during composition. This is a fatal error and "
+                    . "cannot be disambiguated." );
+        }
+
+        $seen{$name} = $attribute;
+    }
+
+    foreach my $attribute (@all_attributes) {
+        $self->add_class_attribute( $attribute->clone() );
+    }
+
+    return keys %seen;
+}
+
+around apply_params => sub {
+    my $orig = shift;
+    my $self = shift;
+
+    $self->$orig(@_);
+
+    $self = Moose::Util::MetaRole::apply_metaroles(
+        for            => $self,
+        role_metaroles => {
+            application_to_class =>
+                ['MooseX::ClassAttribute::Trait::Application::ToClass'],
+            application_to_role =>
+                ['MooseX::ClassAttribute::Trait::Application::ToRole'],
+        },
+    );
+
+    $self->_merge_class_attributes();
+
+    return $self;
+};
+
+1;
+
+# ABSTRACT: A trait that supports applying multiple roles at once
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+MooseX::ClassAttribute::Trait::Role::Composite - A trait that supports applying multiple roles at once
+
+=head1 VERSION
+
+version 0.29
+
+=head1 DESCRIPTION
+
+This trait is used to allow the application of multiple roles (one
+or more of which contain class attributes) to a class or role.
+
+=head1 BUGS
+
+See L<MooseX::ClassAttribute> for details.
+
+Bugs may be submitted through L<the RT bug tracker|http://rt.cpan.org/Public/Dist/Display.html?Name=MooseX-ClassAttribute>
+(or L<bug-moosex-classattribute@rt.cpan.org|mailto:bug-moosex-classattribute@rt.cpan.org>).
+
+I am also usually active on IRC as 'drolsky' on C<irc://irc.perl.org>.
+
+=head1 AUTHOR
+
+Dave Rolsky <autarch@urth.org>
+
+=head1 COPYRIGHT AND LICENCE
+
+This software is Copyright (c) 2016 by Dave Rolsky.
+
+This is free software, licensed under:
+
+  The Artistic License 2.0 (GPL Compatible)
+
+=cut