File: SymbolTest.xs

package info (click to toggle)
libsearch-xapian-perl 1.2.25.5-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 848 kB
  • sloc: perl: 2,332; makefile: 6
file content (22 lines) | stat: -rw-r--r-- 450 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#include <xapian.h>

extern "C" {
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
}

MODULE = SymbolTest	PACKAGE = SymbolTest

PROTOTYPES: ENABLE

void
throw_from_libxapian()
    CODE:
	try {
	    Xapian::WritableDatabase db("/dev/null", Xapian::DB_CREATE_OR_OPEN);
	} catch (const Xapian::Error & error) {
	    croak("%s caught in SymbolTest", error.get_type());
	} catch (...) {
	    croak("Unknown C++ exception caught in SymbolTest");
	}