make keyword-like subs optional exports from ExprDeclare

diff --git a/lib/Data/Query/ExprDeclare.pm b/lib/Data/Query/ExprDeclare.pm
index ad8e360..f0285fb 100644 (file)
--- a/lib/Data/Query/ExprDeclare.pm
+++ b/lib/Data/Query/ExprDeclare.pm
@@ -8,12 +8,14 @@ use Safe::Isa;
 
 use base qw(Exporter);
 
-our @EXPORT = qw(
-  expr SELECT AS FROM BY JOIN ON LEFT WHERE ORDER GROUP DESC LIMIT OFFSET NULLS FIRST LAST
+our @EXPORT = qw(expr);
+
+our @EXPORT_OK = qw(
+  SELECT AS FROM BY JOIN ON LEFT WHERE ORDER GROUP DESC LIMIT OFFSET NULLS FIRST LAST
 );
 
 sub expr (&) {
-  _run_expr($_[0])->{expr};
+  _run_expr($_[0]);
 }
 
 sub _run_expr {