#!/usr/bin/perl

use strict;
use warnings;
use RadaException;
use POSIX qw/ctime/;

eval {
	rada(15);
};
if (ref $@ and $@->isa('VelkyParametr')) {
	print 'Chycena vyjimka: ', ref $@,
	      "\nV programu s PID: ", $@->pid,
	      "\nV case: ", ctime($@->time),
	      "Maximalni velikost parametru: ", $@->limit,
	      "\nUplne trasovani:\n", $@->trace;
}