Select Code to Download

use Exception::Class (
        'MyExceptions::Test' => {                  
...

no Moose::Util::TypeConstraints;
1;

MyExceptions::ExceptionTest->throw( message => $data )

 if ( my $ex = $@ )
{
...
   print $e->message;
  }
 }