What about this variation?
#!/usr/bin/env perl use strict; use warnings; use Cpanel::JSON::XS; use Data::Dump; use feature qw(say); my $json = <DATA>; my $class = decode_json $json; my $name = ( keys %$class )[0]; my $package = ucfirst $name; my $code = qq(package $package; use Class::Tiny qw( @{[ keys %{($class +->{$name}[1])} ]}); 1;); eval $code; my @objects = map {$package->new($_)} @{ $class->{$name} }; my @attributes = Class::Tiny->get_all_attributes_for($package); say $json; dd \@objects; dd \@attributes; say $code; say $package; for my $object(@objects) { for my $attribute( @attributes ) { say $object->$attribute; } } __DATA__ {"student": [{"name": "Nose", "id": "0001"}, {"name": "Cuke", "id":"00 +02"}]} __END__
Just an idea. I'm not sure if it's sound and recommended and therefore i didn't reply to the OP.
Thanks for any hint and regards, Karl
«The Crux of the Biscuit is the Apostrophe»
In reply to Re^2: Building Perl classes dynamically based on an input schema/template
by karlgoethebier
in thread Building Perl classes dynamically based on an input schema/template
by tito80
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |