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'; + }
Ah, of course! my embed-brain-perl has failed to dive into the else branch ;)
__________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
