if :response and :common come in the same import() this will do:
my %seen = ();
my @args = grep { $seen{$_}++; $seen{$_} < 2 } map { /^:response$/ ? ":common" : $_ } @_;
or something like that ;)
too much fwp for you, I think :)
--Geoff
if :response and :common come in the same import() this will do:
my %seen = ();
my @args = grep { $seen{$_}++; $seen{$_} < 2 } map { /^:response$/ ? ":common" : $_ } @_;
or something like that ;)