The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

package t::lib::Green;

our $TYPE = 'colour';
our $SHAPE = 'square';

sub kind { return 'colour'; }

1;