Re: SQL::Statement (SQL-Statement-1.402_002)

On Wed, 19 Dec 2012 15:58:26 +0100
Jens Rehsack <[email protected]> wrote:

> 
> 
> 
> -------- Original Message --------
> Subject: 	SQL::Statement (SQL-Statement-1.402_002)
> Date: 	Wed, 19 Dec 2012 15:53:31 +0100
> From: 	Thomas Binder <[email protected]>
> To: 	[email protected]
> 
> However, when I try your example from the docs of
> SQL::Statement::Structure
> 
> use SQL::Statement;
> my $sql    = "SELECT a FROM b JOIN c WHERE c=? AND e=7 ORDER BY f DESC
> LIMIT 5,2";
> my $parser = SQL::Parser->new();
> $parser->{RaiseError}=1;
> $parser->{PrintError}=0;
> # $parser->parse("LOAD 'MyLib::MySyntax' ");
> my $stmt = SQL::Statement->new($sql,$parser);
> printf "Command             %s\n",$stmt->command;
> printf "Num of Placeholders %s\n",scalar $stmt->params;
> printf "Tables              %s\n",join( ',', map {$_->name}
> $stmt->tables() );
> printf "Where operator      %s\n",join( ',', $stmt->where->op() );
> printf "Limit               %s\n",$stmt->limit();
> printf "Offset              %s\n",$stmt->offset();
> printf "Columns             %s\n",join( ',', map {$_->name}
> $stmt->column_defs() );
> 
> I get this result :
[...]
> Can't call method "name" on unblessed reference at test.pl
> <http://test.pl> line 14.

I think you can leave off the map part.  $stmt->column_defs() just
returns a list of names, which is what you would want to pass to
join.  So, line 14 should be this:

printf "Columns             %s\n",join( ',', $stmt->column_defs() );

I see where you got that line from in the Synopsis of
SQL::Statement::Structure; however, judging from the description of the
column_defs method further down, that line is wrong.  


-- 

C. Chad Wallace, B.Sc.
The Lodging Company
http://www.lodgingcompany.com/
OpenPGP Public Key ID: 0x262208A0