/usr/share/perl5/Tangram/Driver/mysql/Expr/Integer.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 | package Tangram::Driver::mysql::Expr::Integer;
use strict;
use vars qw(@ISA);
@ISA = qw( Tangram::Expr );
sub bitwise_and
{
my ($self, $val) = @_;
return Tangram::Type::Integer->expr("$self->{expr} & $val", $self->objects);
}
sub bitwise_nand
{
my ($self, $val) = @_;
return Tangram::Type::Integer->expr("~$self->{expr} & $val",
$self->objects);
}
sub bitwise_or
{
my ($self, $val) = @_;
return Tangram::Type::Integer->expr("$self->{expr} | $val", $self->objects);
}
sub bitwise_nor
{
my ($self, $val) = @_;
return Tangram::Type::Integer->expr("~$self->{expr} | $val", $self->objects);
}
1;
|