Select Code to Download

package Foo;

...
            ...
        };
};

sub class (&) {
    my ($sub) = @_;
...

    # Do some book-keeping in the caller's namespace.
}

class 'Foo' is {
};

sub is (&) { return @_ }