/usr/share/perl5/Tangram/Core.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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | use strict;
use Set::Object;
use Tangram::Compat;
BEGIN {
}
use Tangram::Type::Scalar;
use Tangram::Type::Ref::FromMany;
use Tangram::Schema;
use Tangram::Cursor;
use Tangram::Storage;
use Tangram::Expr;
use Tangram::Relational;
package Tangram;
# Why does this package continue here? -- ank
use vars qw( $TRACE $DEBUG_LEVEL );
$TRACE = (\*STDOUT, \*STDERR)[$ENV{TANGRAM_TRACE} - 1] || \*STDERR
if exists $ENV{TANGRAM_TRACE} && $ENV{TANGRAM_TRACE};
$DEBUG_LEVEL = $ENV{TANGRAM_DEBUG_LEVEL} || 0;
package Tangram::Core;
use Exporter;
use vars qw(@ISA @EXPORT_OK);
BEGIN {
@ISA = qw(Exporter);
@EXPORT_OK = qw(pretty);
}
# pretty("bla") -> "`bla'"
# pretty(undef) -> undef
sub pretty {
my $thingy = shift;
if (defined($thingy)) {
return "`$thingy'";
} else {
return "undef";
}
}
1;
|