BEGIN{
  ...
  use Class::Accessor;
  our ( $VERSION, $LAST_ERROR, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS );
  @ISA 		= qw( Class::Accessor );
  ...
  Variant->mk_accessor( qw(name nodes) );
}

##</code><code>##

Can't locate object method "mk_accessor" via package "Variant" at Variant.pm line 31.