The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Default::RequiredException;
use Pony::Object;
use Pony::Object::Throwable;

  sub do : Public
    {
      my $this = shift;
      
      try {
        throw Pony::Object::Throwable;
      } catch {
        # all fine
      };
      
      return "done";
    }

1;