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