# Generated by orz 0.12 (Module::Compile 0.16) - do not edit! #line 1 #########((( 32-bit Checksum Validator II )))################ BEGIN { use 5.006; local (*F, $/); ($F = __FILE__) =~ s!c$!!; open(F) or die "Cannot open $F: $!"; binmode(F, ':crlf'); if (unpack('%32N*', $F=readline(*F)) != 0xA3E61550) { use Filter::Util::Call; my $f = $F; filter_add(sub { filter_del(); 1 while &filter_read; $_ = $f; 1; })}} #line 1 ############################################################# package Testorz; sub works { print "This works"; } # orz... # # sub busted { # say "orz!"; # } # sub ok { print "ok"; } 1;