Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.

Stupidly Clever Code 3 Comments More | Login | Reply /

 Full
 Abbreviated
 Hidden
More | Login | Reply
Loading... please wait.

  • sub xpc_namespaces {
        my $self       = shift;
        my @mapping    = values %{ $self->{xpc_namespaces} };
        my %namespaces = map { reverse %$_ } @mapping;
        return \%namespaces;
    }

    • I'm not even sure what part was clever. I was thinking it was the reversal of the hash, turning keys to values and vice-versa.

      • 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:

        my %namespaces
            = shift->{xpc_namespaces}
                ->values
                ->map( sub { %{$_}->reverse } )

        (This is not quite possible in this way even with autobox.)

Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.