/usr/share/perl5/CSS/DOM/Constants.pm is in libcss-dom-perl 0.15-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 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 | package CSS::DOM::Constants;
$VERSION = '0.15';
use Exporter 5.57 'import';
my $exception_constants;
use constant 1.03 $exception_constants = {
# DOMException:
INDEX_SIZE_ERR => 1,
DOMSTRING_SIZE_ERR => 2,
HIERARCHY_REQUEST_ERR => 3,
WRONG_DOCUMENT_ERR => 4,
INVALID_CHARACTER_ERR => 5,
NO_DATA_ALLOWED_ERR => 6,
NO_MODIFICATION_ALLOWED_ERR => 7,
NOT_FOUND_ERR => 8,
NOT_SUPPORTED_ERR => 9,
INUSE_ATTRIBUTE_ERR => 10,
INVALID_STATE_ERR => 11,
SYNTAX_ERR => 12,
INVALID_MODIFICATION_ERR => 13,
NAMESPACE_ERR => 14,
INVALID_ACCESS_ERR => 15,
## EventException:
# UNSPECIFIED_EVENT_TYPE_ERR => 0,
};
my @rule_constants;
use constant do {
my $x = 0;
+{ map +($_ => $x++), @rule_constants = qw/
UNKNOWN_RULE
STYLE_RULE
CHARSET_RULE
IMPORT_RULE
MEDIA_RULE
FONT_FACE_RULE
PAGE_RULE
/ }
};
my @val_constants;
use constant do {
my $x = 0;
+{ map +($_ => $x++), @val_constants = qw/
CSS_INHERIT
CSS_PRIMITIVE_VALUE
CSS_VALUE_LIST
CSS_CUSTOM
/}
};
my @prim_constants;
use constant do {
my $x = 0;
+{ map +($_ => $x++), @ prim_constants = qw/
CSS_UNKNOWN
CSS_NUMBER
CSS_PERCENTAGE
CSS_EMS
CSS_EXS
CSS_PX
CSS_CM
CSS_MM
CSS_IN
CSS_PT
CSS_PC
CSS_DEG
CSS_RAD
CSS_GRAD
CSS_MS
CSS_S
CSS_HZ
CSS_KHZ
CSS_DIMENSION
CSS_STRING
CSS_URI
CSS_IDENT
CSS_ATTR
CSS_COUNTER
CSS_RECT
CSS_RGBCOLOR
/}
};
our %EXPORT_TAGS = (
exception => [keys %$exception_constants],
rule => \@rule_constants,
value => \@val_constants,
primitive => \@prim_constants,
);
our @EXPORT_OK = ('%SuffixToConst', map @$_, values %EXPORT_TAGS);
$EXPORT_TAGS{all} = \@EXPORT_OK;
{package
CSS::DOM::Exception;
CSS::DOM::Constants->import(':exception');
package
CSS::DOM::Rule;
CSS::DOM::Constants->import(':rule');
package
CSS::DOM::Value;
CSS::DOM::Constants->import(':value');
package
CSS::DOM::Value::Primitive;
CSS::DOM::Constants->import(':primitive');
}
%SuffixToConst = ( # dimension suffix -> CSSPrimitiveValue type constant
'em' => CSS_EMS,
'ex' => CSS_EXS,
'px' => CSS_PX,
'cm' => CSS_CM,
'mm' => CSS_MM,
'in' => CSS_IN,
'pt' => CSS_PT,
'pc' => CSS_PC,
deg => CSS_DEG,
rad => CSS_RAD,
grad => CSS_GRAD,
'ms' => CSS_MS,
's' => CSS_S,
'hz' => CSS_HZ,
khz => CSS_KHZ,
);
!()__END__()!
=head1 NAME
CSS::DOM::Constants - Constants for CSS::DOM
=head1 VERSION
Version 0.15
=head1 SYNOPSIS
use CSS::DOM::Constants ':all';
# or
use CSS::DOM::Constants ':rule';
# or individually
use CSS::DOM::Constants 'SYNTAX_ERR', ...;
=head1 DESCRIPTION
This module provides all the constants used by
L<CSS::DOM>.
=head1 EXPORTS
You can import individual constants by name, or all of them with the ':all'
tag. In addition, you can specify one of the following tags, to import a
group of constants (which can also be imported from other CSS::DOM
modules):
=over
=item :exception
All the constants listed under L<CSS::DOM::Exception/EXPORTS>.
=item :rule
All the constants listed under L<CSS::DOM::Rule/EXPORTS>.
=item :value
All the constants listed under L<CSS::DOM::Value/CONSTANTS>.
=item :primitive
All the constants listed under L<CSS::DOM::Value::Primitive/CONSTANTS>.
=back
There is also a C<%SuffixToConst> hash which maps dimension suffixes (such
as 'px'; all lowercase) to CSSPrimitiveValue type constants (such as
C<CSS_PX>). This is included in the
':all' tag.
=head1 SEE ALSO
L<CSS::DOM>
L<CSS::DOM::Exception>
L<CSS::DOM::Rule>
|