varlink--DOWN ZONE

c0ncrete · #1 01-14-2013, 10:43 PM

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;

**Akkadius** · #2 01-14-2013, 11:05 PM

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