/usr/lib/perl5/Ogre/TextureUnitState.pm is in libogre-perl 0.60-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 | package Ogre::TextureUnitState;
use strict;
use warnings;
########## GENERATED CONSTANTS BEGIN
require Exporter;
unshift @Ogre::TextureUnitState::ISA, 'Exporter';
our %EXPORT_TAGS = (
'TextureEffectType' => [qw(
ET_ENVIRONMENT_MAP
ET_PROJECTIVE_TEXTURE
ET_UVSCROLL
ET_USCROLL
ET_VSCROLL
ET_ROTATE
ET_TRANSFORM
)],
'EnvMapType' => [qw(
ENV_PLANAR
ENV_CURVED
ENV_REFLECTION
ENV_NORMAL
)],
'TextureTransformType' => [qw(
TT_TRANSLATE_U
TT_TRANSLATE_V
TT_SCALE_U
TT_SCALE_V
TT_ROTATE
)],
'TextureAddressingMode' => [qw(
TAM_WRAP
TAM_MIRROR
TAM_CLAMP
TAM_BORDER
)],
'TextureCubeFace' => [qw(
CUBE_FRONT
CUBE_BACK
CUBE_LEFT
CUBE_RIGHT
CUBE_UP
CUBE_DOWN
)],
'BindingType' => [qw(
BT_FRAGMENT
BT_VERTEX
)],
'ContentType' => [qw(
CONTENT_NAMED
CONTENT_SHADOW
)],
);
$EXPORT_TAGS{'all'} = [ map { @{ $EXPORT_TAGS{$_} } } keys %EXPORT_TAGS ];
our @EXPORT_OK = @{ $EXPORT_TAGS{'all'} };
our @EXPORT = ();
########## GENERATED CONSTANTS END
1;
__END__
|