Merge 'trunk' into 'deprecate_appclass_actions'

diff --combined lib/Catalyst/Controller.pm

index 3f79106,dc68a33..1d91b3c
--- 1/lib/Catalyst/Controller.pm
--- 2/lib/Catalyst/Controller.pm
+++ b/lib/Catalyst/Controller.pm
@@@ -2,7 -2,7 +2,7 @@@ package Catalyst::Controller
  
  use Moose;
  use Moose::Util qw/find_meta/;
- 
+ use List::MoreUtils qw/uniq/;
  use namespace::clean -except => 'meta';
  
  BEGIN { extends qw/Catalyst::Component MooseX::MethodAttributes::Inheritable/; }
@@@ -29,9 -29,9 +29,9 @@@ has action_namespace =
       predicate => 'has_action_namespace',
      );
  
- has _controller_actions =>
+ has actions =>
      (
-      is => 'rw',
+      accessor => '_controller_actions',
       isa => 'HashRef',
       init_arg => undef,
      );
@@@ -44,6 -44,8 +44,8 @@@ sub BUILD 
      $self->_controller_actions($attr_value);
  }
  
+ 
+ 
  =head1 NAME
  
  Catalyst::Controller - Catalyst Controller base class
@@@ -135,28 -137,30 +137,30 @@@ around action_namespace => sub 
      my $orig = shift;
      my ( $self, $c ) = @_;
  
+     my $class = ref($self) || $self;
+     my $appclass = ref($c) || $c;
      if( ref($self) ){
          return $self->$orig if $self->has_action_namespace;
      } else {
-         return $self->config->{namespace} if exists $self->config->{namespace};
+         return $class->config->{namespace} if exists $class->config->{namespace};
      }
  
      my $case_s;
      if( $c ){
-         $case_s = $c->config->{case_sensitive};
+         $case_s = $appclass->config->{case_sensitive};
      } else {
          if ($self->isa('Catalyst')) {
-             $case_s = $self->config->{case_sensitive};
+             $case_s = $class->config->{case_sensitive};
          } else {
              if (ref $self) {
-                 $case_s = $self->_application->config->{case_sensitive};
+                 $case_s = ref($self->_application)->config->{case_sensitive};
              } else {
                  confess("Can't figure out case_sensitive setting");
              }
          }
      }
  
-     my $namespace = Catalyst::Utils::class2prefix($self->_component_name, $case_s) || '';
+     my $namespace = Catalyst::Utils::class2prefix($self->catalyst_component_name, $case_s) || '';
      $self->$orig($namespace) if ref($self);
      return $namespace;
  };
@@@ -177,8 -181,8 +181,8 @@@ around path_prefix => sub 
  
  sub get_action_methods {
      my $self = shift;
-     my $meta = find_meta($self);
-     confess("Metaclass for "
+     my $meta = find_meta($self) || confess("No metaclass setup for $self");
+     confess("Metaclass "
            . ref($meta) . " for "
            . $meta->name
            . " cannot support register_actions." )
@@@ -196,7 -200,7 +200,7 @@@
                    . ( ref $self ) )
            } keys %{ $self->_controller_actions }
      ) if ( ref $self );
-     return @methods;
+     return uniq @methods;
  }
  
  
@@@ -207,17 -211,14 +211,17 @@@ sub register_actions 
  
  sub register_action_methods {
      my ( $self, $c, @methods ) = @_;
-     my $class = $self->_component_name;
+     my $class = $self->catalyst_component_name;
      #this is still not correct for some reason.
      my $namespace = $self->action_namespace($c);
  
- -    # Uncomment as soon as you fix the tests :)
- -    #if (!blessed($self) && $self eq $c && scalar(@methods)) {
- -    #    $c->log->warn("Action methods found defined in your application class, $self. This is deprecated, please move them into a Root controller.");
- -    #}
+ +    # FIXME - fugly
+ +    if (!blessed($self) && $self eq $c && scalar(@methods)) {
+ +        my @really_bad_methods = grep { ! /^_(DISPATCH|BEGIN|AUTO|ACTION|END)$/ } map { $_->name } @methods;
+ +        if (scalar(@really_bad_methods)) {
+ +            $c->log->warn("Action methods (" . join(', ', @really_bad_methods) . ") found defined in your application class, $self. This is deprecated, please move them into a Root controller.");
+ +        }
+ +    }
  
      foreach my $method (@methods) {
          my $name = $method->name;
diff --combined t/lib/TestApp.pm

index b6d9374,321f78e..a2fc0b2
--- 1/t/lib/TestApp.pm
--- 2/t/lib/TestApp.pm
+++ b/t/lib/TestApp.pm
@@@ -41,6 -41,16 +41,6 @@@ sub count_leaks 
  
  TestApp->setup;
  
- -sub index : Private {
- -    my ( $self, $c ) = @_;
- -    $c->res->body('root index');
- -}
- -
- -sub global_action : Private {
- -    my ( $self, $c ) = @_;
- -    $c->forward('TestApp::View::Dump::Request');
- -}
- -
  sub execute {
      my $c      = shift;
      my $class  = ref( $c->component( $_[0] ) ) || $_[0];
@@@ -67,7 -77,7 +67,7 @@@
              @executed
          );
      }
- 
+     no warnings 'recursion';
      return $c->SUPER::execute(@_);
  }
  
@@@ -82,6 -92,25 +82,6 @@@ sub finalize_error 
      $c->res->body( 'FATAL ERROR: ' . join( ', ', @{ $c->error } ) );
  }
  
- -sub class_forward_test_method :Private {
- -    my ( $self, $c ) = @_;
- -    $c->response->headers->header( 'X-Class-Forward-Test-Method' => 1 );
- -}
- -
- -sub loop_test : Local {
- -    my ( $self, $c ) = @_;
- -
- -    for( 1..1001 ) {
- -        $c->forward( 'class_forward_test_method' );
- -    }
- -}
- -
- -sub recursion_test : Local {
- -    my ( $self, $c ) = @_;
- -    no warnings 'recursion';
- -    $c->forward( 'recursion_test' );
- -}
- -
  {
      no warnings 'redefine';
      sub Catalyst::Log::error { }
		1	2
lib/Catalyst/Controller.pm	patch \|	diff1 \|	diff2 \|	blob \| history
t/lib/TestApp.pm	patch \|	diff1 \|	diff2 \|	blob \| history