ab5tract

class Codeword {
    has Supply $.printer;
#    has Sub $!codeword;
    has Sub $.scrambler is rw;
    has $!string;
    has $!encoded-string;

    method new( :$string = "bloop" ) {
        my $printer = Supply.new;
        $printer.act: { $_.say };

ab5tract

A CompUnit is said to be '{@possible.roll(1)}' if and only if
it has guarunteed idempotence under the stipulations of
the CompUnit Recognition Act, local bylaws withstanding.
 
@possible = <
    authoritative
    registered
    participating
    idemnified
    representing

ab5tract

class Draw {
    has $!supply;
    has $!chan;
    has $!interval = 1;

    method new( $interval ) {
        self.bless(:$interval);
    }

    submethod BUILD(:$!interval) {

ab5tract

my %h = 1 => [ [<what what>], [<how how>] ], 2 => [ [<this this>] ];
my $i = 0;
my $size = [+] %h.values.map({ +@^a });
(1..$size Z~ %h.values>>.map({ @($^a)})).say;

ab5tract

use Test;

sub overlaps-with( $r1, $r2 ) { 
			$r1.min ~~ $r2 and $r1.max ~~ $r2 or $r2.min ~~ $r1 and $r2.max ~~ $r1
		or ( $r1.min == $r2.min and ($r1.max <= $r2.max or $r2.max <= $r1.max) )
		or ( $r2.min < $r1.min < $r2.max <= $r1.max )
		or ( $r1.min < $r2.min < $r1.max <= $r2.max );
}

my @range-tests = (

ab5tract

#!/usr/bin/env perl6
use Test;

sub overlaps-with( $r1, $r2 ) { 
			$r1.min ~~ $r2 and $r1.max ~~ $r2 or $r2.min ~~ $r1 and $r2.max ~~ $r1
		or ( $r1.min == $r2.min and ($r1.max <= $r2.max or $r2.max <= $r1.max) )
		or ( $r2.min < $r1.min < $r2.max <= $r1.max )
		or ( $r1.min < $r2.min < $r1.max <= $r2.max );
}

ab5tract

use v6;

use Inline::Perl5;

class Sereal::Encoder::Perl5 {
    has Inline::Perl5 $!p5;
    has $!encoder;

    submethod BUILD() {
        $!p5 := Inline::Perl5.new;

ab5tract

my $begin = DateTime.now;

say "Beginning at $begin";

my int @range = 0..^400;
my $count = 0;

for @range -> int $i {
    for @range -> int $j {
        for @range -> int $k {

ab5tract

module <%= @name %>
  module Configurations
    class Default < Waves::Configurations::Default
      attribute 'dependencies'
      dependencies ['first', 'second']
    end
  end
end

ab5tract

require 'foundations/simple'
module Blog
  include Waves::Foundations::Simple
end