| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package Acme::CramCode; |
|
2
|
1
|
|
|
1
|
|
361336
|
use Compress::Zlib; |
|
|
1
|
|
|
|
|
1930926
|
|
|
|
1
|
|
|
|
|
716
|
|
|
3
|
|
|
|
|
|
|
our $VERSION = '0.01'; |
|
4
|
|
|
|
|
|
|
$birthmark ="Oh, I'm crammed, baby!!"; |
|
5
|
0
|
|
|
0
|
0
|
0
|
sub encode($){$birthmark. compress shift} |
|
6
|
1
|
|
|
1
|
0
|
5
|
sub decode($){uncompress shift} |
|
7
|
1
|
|
|
1
|
0
|
20
|
sub bm($){$_[0]=~/^$birthmark/s} |
|
8
|
|
|
|
|
|
|
open 0 or print "Can't open '$0'\n" and exit; |
|
9
|
|
|
|
|
|
|
(my $code=join q//, <0>)=~s/.*^\s*use\s+Acme::CramCode\s*;\n//sm; |
|
10
|
1
|
|
|
1
|
|
356189
|
do {$code=~s/^$birthmark//;eval decode $code; exit} if bm $code; |
|
|
1
|
|
|
1
|
|
4976
|
|
|
|
1
|
|
|
|
|
250
|
|
|
|
1
|
|
|
|
|
5
|
|
|
11
|
|
|
|
|
|
|
open 0, ">$0" or print "Cannot encode '$0'\n" and exit; |
|
12
|
|
|
|
|
|
|
print {0} "use Acme::CramCode;\n", encode $code and exit; |
|
13
|
|
|
|
|
|
|
1; |
|
14
|
|
|
|
|
|
|
__END__ |