+ my ( $class, $r ) = @_;
+ my $method = $r->action;
+ return if $r->{template}; # Authentication has set this, we're done.
+
+ $r->{template} = $method;
+ my $obj = $class->fetch_objects($r);
+ $r->objects([$obj]) if $obj;
+ $class->$method( $r, $obj, @{ $r->{args} } );
+}
+
+sub list_columns {
+ shift->display_columns;