The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -w
use strict;
use Test::More;
use Data::Dumper;

use DBIx::RunSQL;

plan tests => 1;
my @statements = DBIx::RunSQL->split_sql(<<'SQL');
DROP TABLE IF EXISTS player1; 
DROP TABLE IF EXISTS player2;

SQL

is scalar( @statements ), 2, "Trailing whitespace is allowed in statements"
    or diag Dumper \@statements;