#!/usr/bin/perl

use strict;
use warnings;

package Rada;

use Exporter::Easy ( EXPORT => [ qw/&rada/ ] );

my $limit = 10;

sub rada {
	my $max = shift // 0;
	die bless {}, 'Rada::ZapornyParametr' if $max <= 0;
	die bless { limit => $limit }, 'Rada::VelkyParametr'
	    if $max > $limit;

	local ($\, $,) = (qq/\n/, q/ /);
	print (1 .. $max);
};

1;