Hello,
I am sorry for bothering you but trying to execute the paradigm of SQL::Statement::Structure on a Strawberry perl v5.21.1 I had the following error.
Can't call method "name" on unblessed reference
The code is the following:
use SQL::Statement;
use Data::Dumper;
my $sql = "SELECT a,aa FROM b JOIN c WHERE c=? AND e=7 ORDER BY f D
+ESC 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->tab
+les() );
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->col
+umn_defs() );
Output
Can't call method "name" on unblessed reference at c:\Users\PasvantidisR\Documents\scripts\perl\test_sql_statement.pl line 17.
Command SELECT
Num of Placeholders 1
Tables b,c
Where operator AND
Limit 2
Offset 5
Can you please help?
Thank you
Lalakis Oeisagwmenos