[Jifty-commit] r5741 - Jifty-DBI/branches/tisql/lib/Jifty/DBI

Jifty commits jifty-commit at lists.jifty.org
Sun Aug 17 02:57:40 EDT 2008


Author: ruz
Date: Sun Aug 17 02:57:40 2008
New Revision: 5741

Modified:
   Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm

Log:
* not yet working column parser

Modified: Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm
==============================================================================
--- Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	(original)
+++ Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	Sun Aug 17 02:57:40 2008
@@ -328,9 +328,26 @@
     }
 }
 
+my $re_column_keep = qr{($re_alias_name)?(\.$re_field$re_ph_access*)+};
+my $re_ph_keep = qr{\.($re_field)($re_ph_access)*};
+
+sub parse_column {
+    my $self = shift;
+    my $string = shift;
+    my ($alias, @parts) = ($string =~ /^$re_column_keep$/og);
+    Test::More::diag Dumper [$alias, @parts];
+    foreach (@parts) {
+        my ($field, @phs) = ($_ =~ /^$re_ph_keep$/og);
+        $_ = [$field, @phs];
+    }
+    Test::More::diag Dumper [$alias, @parts];
+
+}
+
 sub find_column {
     my $self = shift;
     my $string = shift;
+    $self->parse_column($string);
     my $aliases = shift;
     my $collection = shift || $self->{'collection'};
 


More information about the Jifty-commit mailing list