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