^{)) { return ('string', $what) } # json string
if ($what =~ m{^\[}) { return ('string', $what) } # json string
if ($what =~ m{\n[\s\w]}) { return ('s
sed to L<File::Spec/catfile>
as portable file addressing).
First time I've used L<IO::Any> for L<JSON::Util> where for the functions
to encode and decode needs to read/write data.
=head1 METHODS
=h