note
Athanasius
<p>Seems to work only when the colons come in pairs:</p>
<code>
#! perl
use strict;
use warnings;
package :::::
{
sub x
{
printf "(%s)\n", __PACKAGE__;
}
}
package main;
:::::::x();
</code>
<p>Produces:</p>
<code>
23:01 >perl 405_Obfu.pl
Bareword "::::::" refers to nonexistent package at 405_Obfu.pl line 27.
Invalid version format (non-numeric data) at 405_Obfu.pl line 17, near "package ::::"
syntax error at 405_Obfu.pl line 17, near "package :::::"
Execution of 405_Obfu.pl aborted due to compilation errors.
23:02 >
</code>
<blockquote><i>“Curiouser and curiouser!” cried Alice.</i></blockquote>
<p><b>Update:</b> <strike>D’oh! (<i>slaps forehead</i>). Of course! <tt>::</tt> is a synonym for <tt>main</tt>, and so is <tt>::main</tt> and therefore <tt>::::</tt>, likewise <tt>::::::</tt>, etc., etc. (See [doc://perlmod#Packages].)</strike> This “insight” is wrong — see reply by [tobyink], below.</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-968231">
<p>Athanasius <font color=#008000><°(((><</font> <i>contra mundum</i></p>
</div></div>
1005846
1005846