Bool.pm

augment class Bool does Abstraction {
    method Bool { self ?? True !! False }
    method ACCEPTS($topic) { self }

    method perl() { self ?? "Bool::True" !! "Bool::False"; }

    method Numeric() { self ?? 1 !! 0 }

    method Str() { $.perl() }

    method Stringy() { self ?? "True" !! "False"; }

    method Bridge() { self ?? 1.Bridge !! 0.Bridge }

    method key() { self.Stringy }

    method pick($count = 1) {
        (True, False).pick($count);
    }

    method roll($count = 1) {
        (True, False).roll($count);
    }
}