package IIa66da94aed9b371a0ee16b72f938ea09::tag_sql; use strict; use base qw/II720d6e18aa34327713eb014408fc9144/; use II4212c07ddfb1652c969722f1a6817994; our %dbcMethods = ( value => 'getValue', column => 'getColumn', row => 'getRecord', table => 'getRecords', ); sub start { my ($this, $tag, $attr, $attrseq, $origtext)= @_; my $query = $attr->{query} or $this->harakiri('query?'); my $type = $attr->{type}; $this->harakiri('empty or invalid type') unless $type =~ /^(value|column|row|table|do)$/; my $var = "#{$attr->{var}}"; $this->evaluate for $query, $var; my $var_code = $var ? "$var = " : ''; my $classDBC = II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIIIIIIIlllIlII($IIb39071a48a82a07eeb9256f406abebc5::IlllIllIllIllIll{$II982446f8950cc3dc59e487adba22df54::IIlIIIIIlIIlIllI},994,$IIb39071a48a82a07eeb9256f406abebc5::IlllIllIllIllIll{$II720d6e18aa34327713eb014408fc9144::IIIIIlllIllIIlII}); $this->addCode($_) for grep {length} split /\n/, qq! {
require $classDBC;
my \$dbc = $classDBC\->get;
$var_code\$dbc->$dbcMethods{$type}("$query");
}
!;
return; } 1; 