27 |
|
|
28 |
valid are A3C::AAIEduHr->vocabulary('hrEdu001'), |
valid are A3C::AAIEduHr->vocabulary('hrEdu001'), |
29 |
|
|
30 |
|
valid are [ '', A3C::AAIEduHr->vocabulary('hrEdu001') ], |
31 |
|
|
32 |
=cut |
=cut |
33 |
|
|
34 |
sub vocabulary { |
sub vocabulary { |
100 |
die "data not for for $name" unless $data->{name} eq $name; |
die "data not for for $name" unless $data->{name} eq $name; |
101 |
warn "no vocabularyentry for $name from $data_path" unless defined( $data->{vocabularyentry} ); |
warn "no vocabularyentry for $name from $data_path" unless defined( $data->{vocabularyentry} ); |
102 |
|
|
103 |
|
return @{ $data->{vocabularyentry} } if wantarray; |
104 |
return $data->{vocabularyentry}; |
return $data->{vocabularyentry}; |
105 |
} |
} |
106 |
|
|