/usr/share/perl5/Tangram.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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 | package Tangram;
use strict;
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;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK @KEYWORDS $KEYWORDS_RE);
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw(pretty d);
{ local($^W) = 0;
$VERSION = '2.12';
my $force_numeric = $VERSION + 0;
}
# Preloaded methods go here.
BEGIN {
@KEYWORDS = qw(compat_quiet no_compat core);
$KEYWORDS_RE = qr/^:(?:${\(join "|", map { qr{\Q$_\E} }
@KEYWORDS)})/;
}
use Carp;
use Set::Object qw(1.10);
BEGIN { Set::Object->import("set") };
sub import {
my $package = shift;
if ( defined $_[0] and $_[0] =~ m{^\d} ) {
# they want a specific version, do the test ourselves to avoid
# a warning
my $wanted = shift;
local($^W) = 0;
carp "Tangram version $wanted required--this is only $VERSION"
if $wanted > $VERSION or ( $wanted == $VERSION and
$wanted gt $VERSION );
}
my @for_exporter = grep !m/$KEYWORDS_RE/, @_;
my $options = set(grep m/$KEYWORDS_RE/, @_);
Exporter::import($package, @for_exporter);
# don't go requiring extra modules for
my $caller = caller;
my @caller = caller;
unless ( $options->includes(":no_compat") ) {
require Tangram::Compat;
if ( $options->includes(":compat_quiet") ) {
Tangram::Compat::quiet(scalar caller);
}
}
unless ( $options->includes(":core") ) {
require Tangram::Type::Set::FromMany;
require Tangram::Type::Set::FromOne;
require Tangram::Type::Array::FromMany;
require Tangram::Type::Array::FromOne;
require Tangram::Type::Hash::FromMany;
require Tangram::Type::Hash::FromOne;
}
1;
}
sub connect
{
shift;
Tangram::Storage->connect( @_ );
}
# these modules are "Core"
use Tangram::Type::Scalar;
use Tangram::Type::Ref::FromMany;
use Tangram::Schema;
use Tangram::Cursor;
use Tangram::Storage;
use Tangram::Expr;
use Tangram::Relational;
1;
__END__
|