--- a/CrashTest.pl	Mon Aug 04 14:51:37 2014 +0200
+++ b/CrashTest.pl	Mon Aug 04 14:52:24 2014 +0200
@@ -78,6 +78,13 @@
     return b($self->t(span => (title => $signature, class => "shortened-signature") => $short_signature));
 };
 
+helper xml_escape_block => sub {
+    my ($c, $block) = @_;
+    my $result = $block->();
+    $result = xml_escape $result;
+    return Mojo::ByteStream->new($result);
+};
+
 get '/' => sub {
     my $self = shift;
     my $page = 1;