Help for this page

Select Code to Download


  1. or download this
    my $atom = Atom->new(Z=> 80, coords => [V(0,0,0), V(1,1,1), V(2,2,2)])
+;
  2. or download this
    package MyMVR;
#ABSTRACT: Moose subclass of Math::Vector::Real
...
__PACKAGE__->meta->make_immutable;

1;
  3. or download this
    use MyMVR;

...
my $b = MyMVR->new(1,1,1);

print $_ ."\n" foreach (@{$a - $b});