use B::Deparse qw( );

my $deparse = B::Deparse->new();

sub lives_ok(&;$) {
   my ($code, $desc) = @_;
   $desc = $deparse->coderef2text($code)
      if !defined($desc);
   return Text::Exception::lives_ok($code, $desc);
}