[Bast-commits] r9244 - SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract

dhoss at dev.catalyst.perl.org dhoss at dev.catalyst.perl.org
Tue Apr 27 20:52:34 GMT 2010


Author: dhoss
Date: 2010-04-27 21:52:34 +0100 (Tue, 27 Apr 2010)
New Revision: 9244

Modified:
   SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
Log:
removed MooseX::Getopt, don't need it for this

Modified: SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
===================================================================
--- SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-04-27 20:51:17 UTC (rev 9243)
+++ SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-04-27 20:52:34 UTC (rev 9244)
@@ -6,11 +6,9 @@
 use Carp;
 use Moose;
 use namespace::autoclean;
-with 'MooseX::Getopt';
 
 has 'case_sensitive' => (
     is       => 'rw',
-    traits   => [qw/Getopt/],
     required => 1,
     lazy     => 1,
     default  => 0
@@ -18,7 +16,6 @@
 
 has 'parenthesis_significant' => (
     is       => 'rw',
-    traits   => [qw/Getopt/],
     required => 1,
     lazy     => 1,
     default  => 0
@@ -26,7 +23,6 @@
 
 has 'sql_differ' => (
     is         => 'rw',
-    traits     => [qw/NoGetopt/],
     required   => 1,
     lazy_build => 1
 );    # keeps track of differing portion between SQLs
@@ -35,14 +31,12 @@
 
 has 'tb' => (
     is         => 'rw',
-    traits     => [qw/NoGetopt/],
     lazy_build => 1,
     required   => 1,
 );
 
 has 'expression_terminator_sql_keywords' => (
     is         => 'ro',
-    traits     => [qw/NoGetopt/],
     required   => 1,
     lazy_build => 1
 );
@@ -86,7 +80,6 @@
 #   _recurse_parse()
 has 'stuff_around_mathops' => (
     is         => 'ro',
-    traits     => [qw/NoGetopt/],
     required   => 1,
     lazy_build => 1
 );
@@ -97,7 +90,6 @@
 
 has 'binary_op_keywords' => (
     is         => 'ro',
-    traits     => [qw/NoGetopt/],
     required   => 1,
     lazy_build => 1,
 );
@@ -119,7 +111,6 @@
 
 has 'tokenizer_re_str' => (
       is         => 'ro',
-      traits     => [qw/NoGetopt/],
       required   => 1,
       lazy_build => 1,
 );
@@ -133,7 +124,6 @@
 
 has 'tokenizer_re' => (
       is         => 'ro',
-      traits     => [qw/NoGetopt/],
       required   => 1,
       lazy_build => 1,
 );
@@ -145,7 +135,6 @@
 
 has 'unrollable_ops' => (
       is         => 'ro',
-      traits     => [qw/NoGetopt/],
       required   => 1,
       lazy_build => 1,
 );




More information about the Bast-commits mailing list