Select Code to Download

#!/usr/bin/perl
use Quantum::Superpositions;
...
print $dis;
print "=~: ",$dis =~ /\bb\b/; # true
print "eq: ",$dis eq 'b';   # true

q{<}    =>  sub { qblop(swap(@_), sub { $_[0] < $_[1]   })},
q{<=>}  =>  sub { qblop(swap(@_), sub { $_[0] <=> $_[1] })},
... all kinds of other tests
q{~}    =>  sub { $_[0]->quop(sub { ~$_[0]     })},