#!/usr/bin/perl

use strict;
use warnings;
use RadaException;
use Exception::Class::TryCatch;

eval {
	rada(15);
};
if (my $e = catch ['VelkyParametr', 'ZapornyParametr']) {
	print 'Chycena vyjimka: ', ref $e;
	print 'Maximalni hodnota: ', $e->limit if ($e->isa('VelkyParametr'));
}