my $atom = Atom->new(Z=> 80, coords => [V(0,0,0), V(1,1,1), V(2,2,2)]);

##</code><code>##

package MyMVR;
#ABSTRACT: Moose subclass of Math::Vector::Real
use 5.008;
use Moose;
use namespace::autoclean;
use MooseX::NonMoose;
use MooseX::Storage;
with Storage ('io' => 'StorableFile' );
extends 'Math::Vector::Real';


__PACKAGE__->meta->make_immutable;

1;

##</code><code>##

use MyMVR;

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

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