sub die (@) {
    unless (ref $_[0]) {
        CORE::die My::Error->UnCaught(text => join('', @_));
    }
    CORE::die $_[0];
}