From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more
12345678910111213141516 package Weed::FieldTypes::SFVec3d;our $VERSION = '0.009';use Weed 'SFVec3d : X3DField { 0 0 0 }';use base 'Weed::BaseFieldTypes::Vector';sub x : lvalue { $_[0]->[0] }sub y : lvalue { $_[0]->[1] }sub z : lvalue { $_[0]->[2] }1;__END__
package
Weed::FieldTypes::SFVec3d;
our
$VERSION
=
'0.009'
;
use
Weed
'SFVec3d : X3DField { 0 0 0 }'
base
'Weed::BaseFieldTypes::Vector'
sub
x : lvalue {
$_
[0]->[0] }
y : lvalue {
[0]->[1] }
z : lvalue {
[0]->[2] }
1;
__END__