Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: ZA
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 20 lines (17 sloc) 0.371 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
role Positional[::T = Mu] {

    method at_pos($pos) {
        Q:PIR {
            .local pmc self, pos
            self = find_lex 'self'
            pos = find_lex '$pos'
            $I0 = pos
            %r = self[$I0]
            unless null %r goto done
            %r = new ['Perl6Scalar']
          done:
        }
    }

    method of() {
        T
    }
}
Something went wrong with that request. Please try again.