davorg-cpan / moox-role-json_ld Goto Github PK

use Data::Dumper;
{
        package LD::Employee;
        use Moo;
        use Types::Standard qw/Str ArrayRef InstanceOf/;
        use MooX::JSON_LD 'Person';

        has name => (
                is => 'ro',
                json_ld => 'name',
        );
        no Moo;
        no MooX::JSON_LD;
}

{
        package LD::Org;
        use Moo;
        use MooX::JSON_LD 'Organization';
        use Types::Standard qw/ArrayRef InstanceOf/;

        has 'org_name' => (
                is => 'ro',
                json_ld => 'name',
        );
        has employees => (
                is => 'rw',
                isa => ArrayRef->of(InstanceOf->of("LD::Employee")),
                json_ld => 'employee',
        );
}

my $e1 = LD::Employee->new( name => 'Joe Soap' );
my $e2 = LD::Employee->new( name => 'John Brown' );
my $employees = [$e1, $e2];
print Dumper( map $_->json_ld, @$employees );
my $o = new LD::Org( org_name => 'Foo Inc' );
$o->employees([ $e1, $e2 ]);
print Dumper( $o->json_ld );

use Test::More;
use Data::Dumper;
{
  package LD::Person;
  use Moo;
  use Types::Standard qw/Str ArrayRef InstanceOf/;
  use MooX::JSON_LD 'Person';
 
  has name => (
    is => 'ro',
    json_ld => 'name',
  );
  has children => (
    is => 'ro',
    json_ld => 'children',
  );
  no Moo;
  no MooX::JSON_LD;
}
 
my $c = LD::Person->new( name => 'Carla Foo');
my $p = LD::Person->new( name => 'Sam Foo', children => $c);
 
diag $p->json_ld;
 
done_testing;

$ = MooX::Role::JSON_LD::json_ld_data(ref(LD::Person)) called from file `lib/perl5/site_perl/5.10.1/MooX/Role/JSON_LD.pm' line 189
$ = MooX::Role::JSON_LD::_resolve_nested(ref(LD::Person)) called from file `lib/perl5/site_perl/5.10.1/MooX/Role/JSON_LD.pm' line 213
@ = MooX::Role::JSON_LD::json_ld_data(ref(LD::Person)) called from file `lib/perl5/site_perl/5.10.1/MooX/Role/JSON_LD.pm' line 240
@ = MooX::Role::JSON_LD::json_ld(ref(LD::Person)) called from file `./ld3.pl' line 24