#! perl -slw
use strict;
use SillyVec3D;

our( $LOG, $DBG );

SillyVec3D::logging(
    $LOG ? *STDERR : undef,
    $DBG ? *STDERR : undef,
);

my $o = SillyVec3D->new(
   X => 1, Y => 2, Z => 3
);

print $o->X, $o->Y, $o->Z;

$o->X( 4 );
$o->Y( 5 );
$o->Z( 6 );

print $o->X, $o->Y, $o->Z;