[Perl] Prefer the longest step keyword (cucumber#408)

Author: ehuelsmann

CHANGELOG.md

@@ -15,6 +15,7 @@ This document is formatted according to the principles of [Keep A CHANGELOG](htt
 - [PHP] Prefer the longest step keyword ([#403](https://github.com/cucumber/gherkin/pull/403))
 - [Go] Prefer the longest step keyword ([#403](https://github.com/cucumber/gherkin/pull/404))
 - [JavaScript] Prefer the longest step keyword ([#407](https://github.com/cucumber/gherkin/pull/407))
+- [Perl] Prefer the longest step keyword ([#408](https://github.com/cucumber/gherkin/pull/408))
 - [Ruby] Prefer the longest step keyword ([#409](https://github.com/cucumber/gherkin/pull/409))
 - [Python] Prefer the longest step keyword ([#410](https://github.com/cucumber/gherkin/pull/410))
 

perl/lib/Gherkin/TokenMatcher.pm

@@ -8,7 +8,7 @@ use List::Util qw(any first reduce);
 our $LANGUAGE_RE = qr/^\s*#\s*language\s*:\s*([a-zA-Z\-_]+)\s*$/o;
 
 use Class::XSAccessor accessors => [
-    qw/dialect _default_dialect_name _indent_to_remove _active_doc_string_separator _keyword_types /,
+    qw/dialect _default_dialect_name _indent_to_remove _active_doc_string_separator _keyword_types _sorted_step_keywords /,
 ];
 
 use Cucumber::Messages;
@@ -51,6 +51,13 @@ sub change_dialect {
                                [ @{ $self->dialect->And }, @{ $self->dialect->But } ],
                                Cucumber::Messages::Step::KEYWORDTYPE_CONJUNCTION);
     $self->_keyword_types( $keyword_types );
+    $self->_sorted_step_keywords(
+        [ sort {
+            length $b <=> length $a  # longest keyword first (See #400)
+          } map {
+              @{ $self->dialect->$_ }
+          } qw/Given When Then And But/ ]
+        );
 }
 
 sub reset {
@@ -213,7 +220,7 @@ sub _unescaped_docstring {
 
 sub match_StepLine {
     my ( $self, $token ) = @_;
-    my @keywords = map { @{ $self->dialect->$_ } } qw/Given When Then And But/;
+    my @keywords = @{ $self->_sorted_step_keywords };
     my $line = $token->line;
 
     for my $keyword (@keywords) {