Exception handling

class Example {

    method foo {
        say 'foo'
    }

}

{

CATCH { 
    when X::Method::NotFound { 
         if $_.typename ~~ /Example/ {
            say "Go away! There's no {$_.method} here!";
            return();
         }       
    };
    default { die $_ }
};

my $test = Example.new;

$test.foo; # Shouldn't die

$test.bar; # Shouldn't die, explicitly handled 

$test.foo; # Shouldn't die

'foo'.foo; # Should die

}