http://www.perlmonks.org?node_id=883458

hsmyers has asked for the wisdom of the Perl Monks concerning the following question:

Long ago in the pre Moose days I converted a great deal of data into a collection of hash tables with simple-minded code like (large hunks redacted/removed for brevity) the following:
package Chess::PGN::Moves; use 5.006; use strict; use warnings; require Exporter; our @ISA = qw(Exporter); our @EXPORT = qw( %King_Moves ); our $VERSION = '0.05'; use vars qw( %King_Moves ); %King_Moves = ( a1 => [qw(a2 b2 b1)], b1 => [qw(a2 b2 c2 a1 c1)], c1 => [qw(b2 c2 d2 b1 d1)], ); 1; __END__
My question now is what is the Moose equivalent of such a thing. That is how do I a take a collection of static information (all hash tables as it turns out) and bring them into the 21st century object-wise? It is clear that this is do-able in terms of a dynamic hash, but I don't understand the plumbing well enough to abstract from that to what I need for pre-declared material. I've seen references to http://search.cpan.org/~drolsky/Moose-1.21/lib/Moose/Meta/Attribute/Native.pm which I find relatively clear, but again, it doesn't seem to speak to the notion of pre-declared information.

--hsm

"Never try to teach a pig to sing...it wastes your time and it annoys the pig."