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; } #### package mylib; use Exporter 'import'; use lib 'mylib'; use mylib::json; our @EXPORT = ( @mylib::json::EXPORT ); #### use strict; use warnings; use lib '.'; use mylib; print jsonEncode({foo => 'bar'}); #### use strict; use warnings; use lib '.'; use mylib; use JSON::WebToken; print jsonEncode({foo => 'bar'}); #### Attempt to call undefined import method with arguments ("encode_json" ...) via package "JSON" (Perhaps you forgot to load the package?) at C:/Strawberry/perl/site/lib/JSON/WebToken.pm line 12.