- require "$dir/ListItem.pm";
- my $item=eval('\%My::Project::'.$dir.'::ListItem');
- do { warn "Broken $dir/List.pm"; next; } if !defined %$item;
- $item{$dir}=$item;
+ require "project::${dir}::ListItem";
+ my $item=eval('\@project::'.$dir.'::ListItem::ListItem');
+ do { warn "Broken project/$dir/ListItem.pm"; next; } if !defined $item;
+ $item{$dir}={ My::Project::project_arr_to_hash(@$item) };