Carp::confess('Category unspecified') unless defined $category;
Carp::confess('Invalid category') unless $category =~ /^$category_rx$/o;
Carp::confess('Invalid name') unless $name =~ /^$name_rx$/o;
Carp::confess('Category unspecified') unless defined $category;
Carp::confess('Invalid category') unless $category =~ /^$category_rx$/o;
Carp::confess('Invalid name') unless $name =~ /^$name_rx$/o;