Select Code to Download

##################################
# complain.pl  - find what's wrong with others' code fast!
...
# Get input program.
my $snippet = eval {local $/; return < >};
print $snippet if $verbose;

foreach (@plugin_list) {
    require $_ or warn "Plugin $_ failed to load";
}

# Load plugins
@plugins = grep {
    eval{require "plugins/$_.pl"} ? 1 : (warn("Plug-in $_ failed to lo
+ad.\n"), 0)
} @plugins;

require Acme::Current;
# or
use Acme::Current;

use Module LIST;
require EXPR;

foreach (@plugin_list) {
    $_->init;
}

# Do the stuff
foreach (@plugins) {
    $_->evaluate($snippet);
}

# Initialization:
foreach (@plugins) {
    $_->init if UNIVERSAL::can($_, 'init');
}

#############################
#  plugins/bench.pl
...
    print timestr(timeit(400000, $snippet)), "\n";
}
1;

 $ ./complain.pl -p bench < snippet.txt

package Context;

...
    $self->{$plugin} = [] unless exists $self->{$plugin};
    push @{$self->{$plugin}}, $opinion;
}

# Start a new context;
my $ctx = Context->new;
...
foreach (@plugins) {
    $_->evaluate($ctx, $snippet);
}

sub evaluate {
    my $pkg = shift;
    my ($ctx, $snippet) = @_;
    $ctx->addOpinion($pkg, timestr(timeit(400000, $snippet)));
}

# Simple output.
...
    print "The plugin $plugin ${verstr}says:\n";
    print join '\n', map { "\t$_\n" } @$opinions;
}

###############################
#  plugins/grammar.pl
...
}

1;

perl -e'$b=unpack"b*",pack"H*","59dfce2d6b1664d3b26cd9969503";\
for(;$a<length$b;$a+=9){print+pack"b8",substr$b,$a,8;}'