projekt kivitendo

use strict;

  my ($class, %params) = @_;

  $obj->{fullname} = $params{name};

  my $values       = $params{item};

  $obj->{ACCESS} = delete $values->{ACCESS};

  $obj->{module} = delete $values->{module} || die 'menuitem - need module';

  $obj->{action} = delete $values->{action} || die 'menuitem - need action';

  $obj->{params} = $values;

sub name { $_[0]{name} ||= $_[0]->_init_name }

sub _init_name { my $name = $_[0]{fullname}; $name =~ s/.*--//; $name }

sub path { @{ $_[0]{path} ||= [ $_[0]->_init_path ] } }

sub _init_path { my $name = $_[0]{fullname}; split /--/, $name }

sub children { }

sub siblings {}

sub parent {}

###### internal stuff #######