Fix trailing whitespace

[dbsrgits/Data-Query.git] / lib / Data / Query / ExprDeclare.pm

diff --git a/lib/Data/Query/ExprDeclare.pm b/lib/Data/Query/ExprDeclare.pm
index ad8e360..b6896bd 100644 (file)
--- a/lib/Data/Query/ExprDeclare.pm
+++ b/lib/Data/Query/ExprDeclare.pm
@@ -5,15 +5,21 @@ use Data::Query::ExprBuilder::Identifier;
 use Data::Query::ExprHelpers;
 use Data::Query::Constants;
 use Safe::Isa;
+use Exporter ();
 
-use base qw(Exporter);
+sub import {
+  warnings->unimport('precedence');
+  goto &Exporter::import;
+}
+
+our @EXPORT = qw(expr);
 
-our @EXPORT = qw(
-  expr SELECT AS FROM BY JOIN ON LEFT WHERE ORDER GROUP DESC LIMIT OFFSET NULLS FIRST LAST
+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 {
@@ -49,7 +55,7 @@ sub SELECT (&;@) {
         : $e
      );
   }
-      
+
   my $final = Select(\@final, shift);
 
   if (is_Slice($_[0])) {