All the Perl that's Practical to Extract and Report
use Perl Log In
Ovid (2709)
(email not shown publicly)
http://publius-ovidius.livejournal.com/
AOL IM: ovidperl (Add Buddy, Send Message)
Stuff with the Perl Foundation. A couple of patches in the Perl core. A few CPAN modules. That about sums it up.
Stupidly Clever Code
When pairing with another programmer, I wrote some code which he described as "clever". Here it is.
sub xpc_namespaces {
my $self = shift;
my $values = $self->{xpc_namespaces};
my %namespaces = map { reverse %$_ } values %$values;
return \%namespaces;
}
If someone refers to my code as "clever", I should consider that a code smell and look for a better way of writing it. I know what that code does and why it does it, but I think that's because I wrote it.
I noticed the useless variable, so I thought about tightening it, but realized the logical conclusion was this:
sub xpc_namespaces {
{ map { reverse %$_ } values %{ shift->{xpc_namespaces} } };
}
That's just, well, wrong. Because of the structure of our XML, it's guaranteed we won't have collisions, but it's still an atrocity. Unless you have no choice, code should be written for programmers, not computers (SICP for the win!).
I pour myself a cup of strong coffee. :-)
-- Jarkko Hietaniemi
I like it (Score:2)
A question of factoring (Score:1)
Re: (Score:0)
Re: (Score:1)
It’s not easily apparent that the code is dealing with a HoH and the map expression reverses reading direction twice. Consider if it were possible to write something like this:
(This is not quite possible in this way even with autobox.)