The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

HOOO / X3D-0.003_002 / lib / X3D / Constants.pm 

            

              
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

              
package X3D::Constants;
our $VERSION = '0.01';
use X3D::Package 'X3DConstants';
sub NULL ()  { new SFNode(undef) }
sub FALSE () { new SFBool(NO) }
sub TRUE ()  { new SFBool(YES) }
use constant initializeOnly => 0;
use constant inputOnly      => 1;
use constant outputOnly     => 2;
use constant inputOutput    => 3;
use constant MAXINT32 => 0x7FFF_FFFF;
1;
__END__
use enum qw(
  SFBool
  MFBool
  MFInt32
  SFInt32
  SFFloat
  MFFloat
  SFDouble
  MFDouble
  SFTime
  MFTime
  SFNode
  MFNode
  SFVec2f
  MFVec2f
  SFVec2d
  MFVec2d
  SFVec3f
  MFVec3f
  SFVec3d
  MFVec3d
  MFRotation
  SFRotation
  MFColor
  SFColor
  SFImage
  MFImage
  MFColorRGBA
  SFColorRGBA
  SFString
  MFString
);
use enum qw(
  INITIALIZED_EVENT
  SHUTDOWN_EVENT
  CONNECTION_ERROR
  INITIALIZED_ERROR
  NOT_STARTED_STATE
  IN_PROGRESS_STATE
  COMPLETE_STATE
  FAILED_STATE
);