my $orig = shift;
my $self = shift;
$self->member_args->{computed_field_order} ||= $self->computed_field_order;
- $self->member_args->{computed_action_order} ||= [];
my $members = $self->$orig(@_);
- # cache everything yo
- for my $member (@$members){
- $member->clear_computed_action_order;
- my $order = $member->computed_action_order;
- @{ $self->member_args->{computed_action_order} } = @$order;
- last;
- }
-
return $members;
};