/usr/share/perl5/Tangram/Driver/Sybase/Expr/Date.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 | package Tangram::Driver::Sybase::Expr::Date;
use vars qw(@ISA);
@ISA = qw( Tangram::Expr );
############################
# add method datepart($part)
sub datepart
{
my ($self, $part) = @_; # $part is 'year', 'month', etc
my $expr = $self->expr(); # the SQL string for this Expr
##################################
# build a new Expr of Integer type
# pass this Expr's remote object list to the new Expr
return Tangram::Type::Integer->expr("DATEPART($part, $expr)", $self->objects);
}
1;
|