Switch everything to autoclean. Add sanity tests to ensure appropriate modern perl...

[catagits/CatalystX-DynamicComponent.git] / lib / DynamicAppDemo / ControllerBase.pm

package DynamicAppDemo::ControllerBase;
use Moose;
use Moose::Util qw/find_meta/;
use namespace::autoclean;

# You need attributes still for _DISPATCH and friends.
BEGIN { extends 'Catalyst::Controller' }

around get_action_methods => sub {
    my $orig = shift;
    my $self = shift;

    my $meta = find_meta($self);
    
    # FIXME - fugly, and nasty
    return (
        (   map { 
                my $m = $meta->get_method($_);
                # EPIC CHEAT to just smash the attribute definition :)
                $m->meta->get_attribute('attributes')->set_value($m, ['Local']);
                $m;
            }
            grep { ! /^(_|new|meta)/ }
            $meta->get_method_list
        ),
        (
            $self->$orig(@_)
        )
    ); 
};

__PACKAGE__->meta->make_immutable;