package Cvika::Stromy;

use strict;
use warnings;

use Exporter 'import';
our @EXPORT_OK = qw(@stromy);

##### Stromečky #####

our @stromy;

my $koren = {};
$koren->{oznaceni} = "A";
$koren->{potomci} = [];
$koren->{kontrolni_hash} = "ABECD";

my $uzelB = {};
$uzelB->{oznaceni} = "B";
$uzelB->{potomci} = [];
push @{$koren->{potomci}}, $uzelB;

my $uzelC = {};
$uzelC->{oznaceni} = "C";
$uzelC->{potomci} = [];
push @{$koren->{potomci}}, $uzelC;

my $uzelD = {};
$uzelD->{oznaceni} = "D";
$uzelD->{potomci} = [];
push @{$koren->{potomci}}, $uzelD;

my $uzelE = {};
$uzelE->{oznaceni} = "E";
$uzelE->{potomci} = [];
push @{$uzelB->{potomci}}, $uzelE;

push @stromy, $koren;

##### Konec stromečků #####

42;
