return $a1->comparable_arg_number <=> $a2->comparable_arg_number;
}
+sub equals {
+ my ($self, $target) = @_;
+ return $self->private_path eq $target->private_path ? $self : 0;
+}
+
sub scheme {
return exists $_[0]->attributes->{Scheme} ? $_[0]->attributes->{Scheme}[0] : undef;
}
Compares 2 actions based on the value of the C<Args> attribute, with no C<Args>
having the highest precedence.
+=head2 equal
+
+ if( $action->equal($other_action) ) { ... }
+
+Returns true if the two actions are equal.
+
=head2 namespace
Returns the private namespace this action lives in.