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

package Object::ProtectedPonyExt;
use Pony::Object qw(Object::ProtectedPony);
  
  private d => 0xBEEF;
  
1;