Mediawiki-Blame

 view release on metacpan or  search on metacpan

examples/mb.pl  view on Meta::CPAN

use warnings;

package Mediawiki::Blame::Server;
use lib qw(lib);
use Mediawiki::Blame qw();
use HTML::Entities qw(encode_entities);
use Encode;
use base qw(HTTP::Server::Simple::CGI);

our $HEAD = <<"";
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
    <meta http-equiv="content-type" content="application/xhtml+xml;charset=UTF-8" />
    <title>Mediawiki::Blame/$Mediawiki::Blame::VERSION</title>
    <style type="text/css">
        fieldset ul {clear: both;}
        fieldset div label {float: left; text-align: right; width: 3em;}
        fieldset div input {float: right; text-align: left; width: 90%;}
        fieldset ul li {font-family: monospace;}
        table:nth-child(even) {background-color: #eee;}



( run in 1.673 second using v1.01-cache-2.11-cpan-49f99fa48dc )