/usr/share/perl5/Tangram/Driver/Sybase/Statement.pm is in libtangram-perl 2.10-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | package Tangram::Driver::Sybase::Statement;
use strict;
use constant STH => 2;
sub execute
{
my $self = shift;
my ($storage, $sql) = @$self;
my $sth = $self->[STH] = $storage->{db}->prepare($sql);
$sth->execute(@_);
# $dbh->do($sql, {}, @_);
}
sub fetchrow_array
{
my $self = shift;
return $self->[STH]->fetchrow_array();
}
sub finish
{
my $self = shift;
my $sth = pop @$self;
$sth->finish();
}
1;
|