blob: 2caeed472cfb60e30da97a9bb52da8b44601540c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
package Bread::Board::Declare::Meta::Role::Attribute;
use Moose::Role;
use List::MoreUtils 'any';
use Moose::Util 'does_role', 'find_meta';
# this is kinda gross, but it's the only way to hook in at the right place
# at the moment, it seems
around interpolate_class => sub {
my $orig = shift;
my $class = shift;
my ($options) = @_;
# we only want to do this on the final recursive call
return $class->$orig(@_)
if $options->{metaclass};
my ($new_class, @traits) = $class->$orig(@_);
return wantarray ? ($new_class, @traits) : $new_class
if does_role($new_class, 'Bread::Board::Declare::Meta::Role::Attribute::Service');
my $parent = @traits
? (find_meta($new_class)->superclasses)[0]
: $new_class;
push @{ $options->{traits} }, 'Bread::Board::Declare::Meta::Role::Attribute::Service';
return $parent->interpolate_class($options);
};
no Moose::Role;
1;
|