Thats action registration sorted out. Now I just need to introspect all the models...

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

diff --git a/lib/DynamicAppDemo/ControllerBase.pm b/lib/DynamicAppDemo/ControllerBase.pm
index 8a84f23..7f0aafd 100644 (file)
--- a/lib/DynamicAppDemo/ControllerBase.pm
+++ b/lib/DynamicAppDemo/ControllerBase.pm
@@ -1,9 +1,33 @@
 package DynamicAppDemo::ControllerBase;
 use Moose;
+use Moose::Util qw/find_meta/;
 use namespace::clean -except => 'meta';
 
 # Should not need attributes here, but what the hell..
 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;