view _test/temp.pl @ 103:c289ed9662ca

Schema beta 2 More strict validation, support for inflating a simple nodes and properties
author wizard
date Fri, 07 May 2010 18:17:40 +0400
parents cf3b6ef2be22
children 196bf443b5e1
line wrap: on
line source

#!/usr/bin/perl
use strict;

local $@;

{
	eval 'die "boolshit"';
	my $e = $@;
	
	die "msg: $e" if $e;
}