/usr/share/perl5/Tangram.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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | package Tangram;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK @KEYWORDS $KEYWORDS_RE);
require Exporter;
@ISA = qw(Exporter AutoLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
);
{ local($^W) = 0;
$VERSION = '2.10';
my $force_numeric = $VERSION + 0;
}
# Preloaded methods go here.
BEGIN {
@KEYWORDS = qw(compat_quiet core);
$KEYWORDS_RE = qr/^:(?:${\(join "|", map { qr{\Q$_\E} }
@KEYWORDS)})/;
}
use Set::Object qw(1.10);
BEGIN { Set::Object->import("set") };
sub import {
my $package = shift;
my @for_exporter = grep !m/$KEYWORDS_RE/, @_;
my $options = set(grep m/$KEYWORDS_RE/, @_);
$package->SUPER::import(@for_exporter);
require Tangram::Core;
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;
}
if ( $options->includes(":compat_quiet") ) {
Tangram::Compat::quiet(scalar caller);
}
}
sub connect
{
shift;
Tangram::Storage->connect( @_ );
}
1;
__END__
|