Quote:
Originally Posted by c0ncrete
Code:
package Noport::Response;
use 5.012;
use constant ONLINE => 1;
sub RandomThing {
rand 99 > 49 ? 'try ' . UnrelatedOpcode() : 'incoherent nonsense';
}
sub UnrelatedOpcode {
'0x' . join '', map { unpack "H*", chr rand 256 } 1 .. 2;
}
say RandomThing() while ONLINE;
|
I was saddened by my results when I tried to install this module:
Code:
cpan[1]> install Noport::Response
CPAN: Storable loaded ok (v2.20)
Going to read '/root/.cpan/Metadata'
Database was generated on Tue, 31 Jul 2012 01:12:42 GMT
CPAN: Time::HiRes loaded ok (v1.9719)
You do not meet the qualified access level:
Opcode Ninja