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

attr_accessor "name", "color", "master";

def sound { "meow, meow, meow" };

def play {
    for my $stuff(@args) {
        print "I CAN HAS " . uc($stuff) . "\n";
        push @{ $self->{played} ||=[] }, $stuff;
    }
};


1;