gistfile1.txt

use v6;
use Test;

class C {

    class E is Iterable does Positional is Exception {
        has Int $.error   = 0;
        has Str $.message = "Error";

        method sink {
            "$!error: $!message".say;
            }
        }

    method foo {
        fail E.new;
        }
    }

my $e;
{   C.new.foo;
    CATCH { default { $e = $_; }}
    }