Remove trailing ; in statements before parsing

perl5-dbi/DBD-CSV#2

https://metacpan.org/pod/DBI#prepare

Some command-line SQL tools use statement terminators, like a semicolon,
to indicate the end of a statement. Such terminators should not normally
be used with the DBI.

Author: H.Merijn Brand - Tux

lib/SQL/Parser.pm

@@ -60,6 +60,7 @@ sub parse
     $self->dialect( $self->{dialect} ) unless ( $self->{dialect_set} );
     $sql =~ s/^\s+//;
     $sql =~ s/\s+$//;
+    $sql =~ s/\s*;$//;
     $self->{struct}                    = { dialect => $self->{dialect} };
     $self->{tmp}                       = {};
     $self->{original_string}           = $sql;