package mylib::json;
  use Exporter 'import';
  our @EXPORT=qw(jsonEncode);
  use JSON::XS;
  sub jsonEncode($) {
	my ($o) = @_;
	my $j = undef;
	eval { $j = JSON::XS->new->encode($o); };
	return $@ ? undef : $j;
  }