#!/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":"0002"}]}
__END__