Providing basic JSON support in, looks like we are already autodecoding

I left it as a function but changed shift to pop, and eliminated the method check.  This may have amusing results if someone does PubNub::PubSub->message; but it supports message('foo') and PubNub::PubSub->message('foo') equally well regardless of subclassing.