title: Perl6 Exception handling print X::AdHoc message on the CATCH section
body: <p>Suppose I have the following code:</p>
  
  <pre><code>try {
  
      X::Any.new(payload =&gt; 'Error !',message =&gt; "fff").throw;
      #  die "message";
  
      CATCH {
          #  when X::HTTP { say $_.url(); }    
          when X::AdHoc { say $_; }
      }
  }
  </code></pre>
  
  <p>How can I print the message or the payload? I tried the following :</p>
  
  <pre><code>say $_.message ;
  say $_.payload ;
  </code></pre>
  
  <p>but it didn't work.</p>