The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%ARGS>
$Plugin => ''
</%ARGS>
<div id="shredder-plugin-<% $Plugin %>-help" class="shredder-help">
<% $text |n%>
</div>
<%ONCE>
use RTx::Shredder::Plugin;
my $plugin_obj = new RTx::Shredder::Plugin;
my %plugins = $plugin_obj->List;
</%ONCE>
<%INIT>
my $file = $plugins{ $Plugin };
unless( $file ) {
	$RT::Logger->error( "Couldn't find plugin '$Plugin'" );
	return;
}

use RTx::Shredder::POD qw();
my $text = '';
open my $io_handle, ">:scalar", \$text or die "Can't open scalar for write: $!";
RTx::Shredder::POD::plugin_html( $file, $io_handle );
close $io_handle;
</%INIT>