Select Code to Download

package MicroWiki;
use base 'Squatting';
...
<form method="post" action="%s"><textarea name="text" rows="20">%s</te
+xtarea>'
.'<input type="submit"/></form>',
R('Page', $_[1]->{page}), $_[1]->{text}) })); 1;

squatting MicroWiki

use MicroWiki 'On::Catalyst';
MicroWiki->init;
MicroWiki->relocate('/wiki');
sub wiki : Local { MicroWiki->catalyze($_[1]) }

my $view = $MicroWiki::Views::V[0];
$view->{layout} = sub {
  my ($self, $v, $content) = @_;
  # return a string that wraps around $content
};