return $self->attributes->{CaptureArgs}[0] || 0;
}
-sub list_extra_info { }
+sub list_extra_info {
+ my $self = shift;
+ return {
+ Args => $self->attributes->{Args}[0],
+ CaptureArgs => $self->number_of_captures,
+ }
+}
__PACKAGE__->meta->make_immutable;
=head2 class
Returns the name of the component where this action is defined.
-Derived by calling the L<Catalyst::Component/catalyst_component_name|catalyst_component_name>
+Derived by calling the L<catalyst_component_name|Catalyst::Component/catalyst_component_name>
method on each component.
=head2 code
=head2 list_extra_info
-An array of values useful to improve debugging
+A HashRef of key-values that an action can provide to a debugging screen
=head2 meta