+sub check_options {
+
+ # Check Tokenizer parameters
+ my $rOpts = shift;
+
+ %is_sub = ();
+ $is_sub{'sub'} = 1;
+
+ # Install any aliases to 'sub'
+ if ( $rOpts->{'sub-alias-list'} ) {
+
+ # Note that any 'sub-alias-list' has been preprocessed to
+ # be a trimmed, space-separated list which includes 'sub'
+ # for example, it might be 'sub method fun'
+ my @sub_alias_list = split /\s+/, $rOpts->{'sub-alias-list'};
+ foreach my $word (@sub_alias_list) {
+ $is_sub{$word} = 1;
+ }
+ }
+ return;
+}
+