Select Code to Download

foo.h ------------------------------------------------------
class Foo {
  public:
    void bar();
};

foo.cpp ----------------------------------------------------
#include <stdexcept>
#include "foo.h"
...
void Foo::bar() {
  throw std::runtime_error("oh no!");
}

Foo.xs -----------------------------------------------------
void
Foo::bar()
...
    catch (const std::runtime_error &e) {
      croak("Foo::bar threw a runtime error!");
    }

30,969 bytes in 999 blocks are possibly lost in loss record 1,064 of 1
+,069
   at 0x4A0666E: operator new(unsigned long) (vg_replace_malloc.c:220)
   by 0x929F070: std::string::_Rep::_S_create(unsigned long, unsigned 
+long, std::allocator<char> const&) (new_allocator.h:89)
...
   by 0x490D35: Perl_runops_standard (in /usr/local/perl/5.12.2-gcc443
+-rhel5-64/bin/perl)
   by 0x43410B: perl_run (in /usr/local/perl/5.12.2-gcc443-rhel5-64/bi
+n/perl)
   by 0x41E51B: main (in /usr/local/perl/5.12.2-gcc443-rhel5-64/bin/pe
+rl)