#!/usr/bin/perl

use strict;
use warnings;
use RadaException;
use Error qw/:try/;

push @Exception::Class::Base::ISA, 'Error'
      unless Exception::Class::Base->isa('Error');

for my $p (5, 15, -5) {
	print "p = $p {\n\t";
	try {
		rada($p);
	}
	catch VelkyParametr with {
		my $e = shift;
		print 'limit: ', $e->limit, qq/\n/;
	}
	otherwise {
		my $e = shift;
		print 'Chycena vyjimka: ', ref $e, qq/\n/;
	}
	finally {
		print "}\n";
	};
}

print "Konec programu\n";