if(!defined $name){
$name = $args{name};
}
+ else{
+ $args{name} = $name;
+ }
- $args{name} = $name;
my $parent;
if($mode eq 'subtype'){
$parent = delete $args{as};
. "$existing->{package_defined_in} and cannot be created again in $package_defined_in");
}
}
- else{
- $args{name} = '__ANON__';
- }
$args{constraint} = delete $args{where} if exists $args{where};
$args{optimized} = delete $args{optimized_as} if exists $args{optimized_as};