CSS::DOM::Constants - Constants for CSS::DOM

CSS-DOM documentation Contained in the CSS-DOM distribution.

Index

Code Index:

NAME

Top

CSS::DOM::Constants - Constants for CSS::DOM

VERSION

Top

Version 0.14

SYNOPSIS

Top

  use CSS::DOM::Constants ':all';

  # or

  use CSS::DOM::Constants ':rule';

  # or individually

  use CSS::DOM::Constants 'SYNTAX_ERR', ...;

DESCRIPTION

Top

This module provides all the constants used by CSS::DOM.

EXPORTS

Top

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):

:exception

All the constants listed under EXPORTS in CSS::DOM::Exception.

:rule

All the constants listed under EXPORTS in CSS::DOM::Rule.

:value

All the constants listed under CONSTANTS in CSS::DOM::Value.

:primitive

All the constants listed under CONSTANTS in CSS::DOM::Value::Primitive.

There is also a %SuffixToConst hash which maps dimension suffixes (such as 'px'; all lowercase) to CSSPrimitiveValue type constants (such as CSS_PX). This is included in the ':all' tag.

SEE ALSO

Top

CSS::DOM

CSS::DOM::Exception

CSS::DOM::Rule

CSS-DOM documentation Contained in the CSS-DOM distribution. 
package CSS::DOM::Constants;

$VERSION = '0.14';

use Exporter 5.57 'import';

my $exception_constants;
use constant $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__()!