The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Object::Animal::Artiodactyls;
use Pony::Object qw(Object::Animal::Base);

  protected legs => 4;
  private counter => 0;
  
  sub inc : Private
    {
      shift->counter++
    }

1;