Re^2: Building Perl classes dynamically based on an input schema/template

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__
[download]

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ť

Comment on Re^2: Building Perl classes dynamically based on an input schema/template Download Code

Replies are listed 'Best First'.
Re^3: Building Perl classes dynamically based on an input schema/template by davido (Cardinal) on Nov 16, 2016 at 01:18 UTC
It works and is fairly elegant. :) Both are susceptible to someone using a class name that clobbers an existing namespace if the inputs are not trustworthy (or otherwise inept). I suppose that the eval version would allow for some sort of code injection beyond namespace collisions too, so again, the caveat about trustworthy, reliable inputs. In a real-world solution either one of our strategies should do thorough sanitization first. Dave	[reply]
Re^4: Building Perl classes dynamically based on an input schema/template by tito80 (Novice) on Nov 16, 2016 at 20:29 UTC
Karl and Dave, Thanks to both of you for your great inputs. I was initially looking for an usage example with CLASS::MOP to solve the problem, but I guess now that it can be solved through the above methods equally well. Let me look into implementing them and update you if I run into any issues. Thanks, Tito	[reply]
Re^4: Building Perl classes dynamically based on an input schema/template by karlgoethebier (Abbot) on Nov 16, 2016 at 11:35 UTC
Thanks for the feedback. Regards, Karl ŤThe Crux of the Biscuit is the Apostropheť	[reply]