#!perl
package SQL_DSL_Keyword;
use warnings;
use 5.012; # for experimental pluggable keyword API

use parent 'SQL_DSL';
use Carp;
use Keyword::Simple;

sub import {
	Keyword::Simple::define SQL => sub {
		${$_[0]}=~s/^\s*\{/SQL_DSL::SQL { package SQL_DSL; /
			or croak "SQL keyword must be followed by a block";
	};
}

sub unimport {
	Keyword::Simple::undefine 'SQL';
}

1;