Need help understand "class"

[ToddAndMargo via perl6-users]

Hi All,


In the following piece of code:

use NativeCall;

class CupsDest is repr('CStruct') {
    has Str $.name;
    has Str $.instance;
    has int32 $.is-default;
    has Pointer $.options;
}

sub cupsGetDests(Pointer is rw --> int32) is native('cups', v2) {}


Would some kind soul please explain to me
what is going on line by line with the "class"
statement.

cupsGetDests definition can be found at:
    https://www.cups.org/doc/cupspm.html

I am confused.  Yes, again.

-T