View Single Post
  #14  
Old 01-14-2013, 11:05 PM
Akkadius's Avatar
Akkadius
Administrator
 
Join Date: Feb 2009
Location: MN
Posts: 2,072
Default

Quote:
Originally Posted by c0ncrete View Post
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
Reply With Quote