[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