From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

HOOO / X3D-0.003_002 / lib / X3D / Field.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
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

              
package X3D::Field;
use X3D::Perl;
our $VERSION = '0.015';
use X3D::Parse::FieldValue;
sub SET_DESCRIPTION {
   my ( $this, $description ) = @_;
   my $typeName        = $description->{typeName};
   my $defaultValue    = X3D::Parse::FieldValue::parse( $typeName, @{ $description->{body} } );
   my $fieldDefinition = new X3DFieldDefinition( $typeName, YES, YES, '', $defaultValue, '' );
   $this->X3DPackage::Scalar("X3DDefaultDefinition") = $fieldDefinition;
}
use X3D::Package 'X3DField : X3DObject { }', 'new';
use overload
  '='    => 'getClone',
  'bool' => sub { $_[0]->getValue ? YES : NO },
  ;
sub new {
   my $this = shift->X3DObject::new;
   $this->setDefinition( $this->X3DPackage::Scalar("X3DDefaultDefinition") );
   $this->create;
   if (@_) {
      $this->setValue(@_);
      $this->setTainted(NO);
   }
   return $this;
}
sub create { }
sub getClone { $_[0]->new( $_[0]->getValue ) }
*getCopy = \&getClone;
sub getDefinition { $_[0]->{definition} }
sub setDefinition { $_[0]->{definition} = $_[1] }
sub getDefaultValue { $_[0]->X3DPackage::Scalar("X3DDefaultDefinition")->getValue }
sub getInitialValue { $_[0]->getDefinition->getValue }
sub getAccessType { $_[0]->getDefinition->getAccessType }
#sub isReadable { $_[0]->getAccessType != X3DConstants->inputOnly }
#sub isWritable { $_[0]->getAccessType & X3DConstants->inputOnly }
sub getName { $_[0]->getDefinition->getName }
sub getValue { $_[0]->{value} }
sub setValue {
   my ( $this, $value ) = @_;
   $this->{value} = $value;
   $this->setTainted(time);
   return;
}
#*
#sub addFieldCallback {
#       my ( $this, $destinationField ) = @_;
#       X3DMessage->Debug;
#       return $this->{fieldCallbacks}->{ X3DUniversal::getId($object) . $callbackName } =
#         [ $object, $callbackName ]
#         if $object->isa("SFNode")
#         and ref $object->getValue->getField($callbackName);
#       return;
#}
#*
#sub removeFieldCallback {
#       my ( $this, $callbackName, $object ) = @_;
#       delete $this->{fieldCallbacks}->{ X3DUniversal::getId($object) . $callbackName };
#       return;
#}
#
sub toString { sprintf "%s", $_[0]->getValue }
#sub DESTROY { X3DMessage->Debug($_[0], X3DUniversal::getId($_[0]));
#}
1;
__END__