/usr/share/doc/libmoosex-types-json-perl/examples/demo.pl is in libmoosex-types-json-perl 1.00-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | #!/usr/bin/perl
{
package Foo;
use Moose;
use Moose::Util::TypeConstraints;
use MooseX::Types::JSON qw( JSON relaxedJSON );
has data_strict => ( is => 'rw', isa => JSON );
has data_relaxed => ( is => 'rw', isa => relaxedJSON );
has data_coerced => ( is => 'rw', isa => JSON, coerce => 1 );
}
my $foo = Foo->new(
data_strict => qq| { "foo": "bar", "answer": "42" } |,
data_relaxed => qq| { "foo": "bar", "answer": "42", } |,
data_coerced => { foo => "bar", answer => 42 },
);
print $foo->dump;
|