Also I'd like to suggest another change. If you introduce key=>val arguments, the old arg should support that as well, like so:
generate_script( file => 't/TEST', bugreport => My::Foo::bugreport());
What do you think? And we keep the back-compat:
generate_script('t/TEST');
I already took care of that:
+ if (@opts == 1) {
+ $opts{file} = $opts[0];
+ }
+ else {
+ %opts = @opts;
+ $opts{file} ||= catfile 't', 'TEST';
+ }:)
--Geoff
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
