return $self->attributes->{CaptureArgs}[0] || 0;
}
+sub scheme {
+ return exists $_[0]->attributes->{Scheme} ? $_[0]->attributes->{Scheme}[0] : undef;
+}
+
+sub list_extra_info {
+ my $self = shift;
+ return {
+ Args => exists $self->attributes->{Args} ? $self->attributes->{Args}[0] : undef,
+ CaptureArgs => $self->number_of_captures,
+ }
+}
+
__PACKAGE__->meta->make_immutable;
1;
=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
Returns the number of captures this action expects for L<Chained|Catalyst::DispatchType::Chained> actions.
+=head2 list_extra_info
+
+A HashRef of key-values that an action can provide to a debugging screen
+
+=head2 scheme
+
+Any defined scheme for the action
+
=head2 meta
Provided by Moose.