--- lib/A3C/AAIEduHr.pm 2008/04/30 16:16:20 92 +++ lib/A3C/AAIEduHr.pm 2008/04/30 17:23:21 93 @@ -27,6 +27,8 @@ valid are A3C::AAIEduHr->vocabulary('hrEdu001'), + valid are [ '', A3C::AAIEduHr->vocabulary('hrEdu001') ], + =cut sub vocabulary { @@ -98,6 +100,7 @@ die "data not for for $name" unless $data->{name} eq $name; warn "no vocabularyentry for $name from $data_path" unless defined( $data->{vocabularyentry} ); + return @{ $data->{vocabularyentry} } if wantarray; return $data->{vocabularyentry}; }