/usr/share/perl5/Tangram/Driver/mysql/Expr/Date.pm is in libtangram-perl 2.12-1.
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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | package Tangram::Driver::mysql::Expr::Date;
use strict;
use vars qw(@ISA);
@ISA = qw( Tangram::Expr );
my %autofun = (
dayofweek => 'Integer',
weekday => 'Integer',
dayofmonth => 'Integer',
dayofyear => 'Integer',
month => 'Integer',
dayname => 'String',
monthname => 'String',
quarter => 'Integer',
week => 'Integer',
year => 'Integer',
yearweek => 'Integer',
to_days => 'Integer',
unix_timestamp => 'Integer',
);
use vars qw( $AUTOLOAD );
use Carp;
sub AUTOLOAD
{
my ($self) = @_;
my ($fun) = $AUTOLOAD =~ /\:\:(\w+)$/;
croak "Unknown method '$fun'"
unless exists $autofun{$fun};
eval <<SUBDEF;
sub $fun
{
my (\$self, \$part) = \@_;
my \$expr = \$self->expr();
return Tangram\:\:$autofun{$fun}->expr("\U$fun\E(\$expr)", \$self->objects);
}
SUBDEF
goto &$fun;
}
1;
|