Using attribute notation for a reference argument to an option gives an error :Export( -(?) )

[tabulon]

The following example from the documentation doesn't actually compile :

# Ask for one argument but only if it is a ref of some kind.
# If it is a hashref, this also processes import options like -prefix, -replace, etc.
sub name : Export( -name(?) ) {
  my ($exporter, $maybe_arg)= @_;
  ...
}

Instead, it gives the following error : Couldn't compile '...' to inspect: Invalid export notation '-name(?)'

Same thing for the shorter version:

sub name : Export( -(?) ) {
  my ($exporter, $maybe_arg)= @_;
  ...
}

A quick inspection suggests a missing part in the relevant regex -- at line 622 of Exporter/Extensible.pm (as of version 0.10 at commit bd91114):

...
elsif ($token =~ /^-(\w*)(?:\(([0-9]+|\*)\))?$/) {
   ...
}

It should probably have a term for the question mark (?) in there, like so:

...
elsif ($token =~ /^-(\w*)(?:\(([0-9]+|\*|\?)\))?$/) {
   ...
}

[nrdvana]

Indeed! I've apparently never tried using this feature declared as an attribute. Thanks for the fix.

[nrdvana]

Released in version 0.11