mix3

use JQueryPresentationHelper;

my $title = title "JQueryPresentation";

header q{<script src="https://google-code-prettify.googlecode.com/svn/loader/run_prettify.js?lang=perl&skin=sunburst"></script>};

hook 'pretty' => sub { $_[0] =~ s/<pre>/<pre class="prettyprint" style="font-size:24px;">/g; $_[0] };

plain q{
## コードハイライトするよ!!!

mix3

use JQueryPresentationHelper;

my $title = title q{$.presentation};

top qq{
# $title

Takeshi Takatsudo (<mailto:takazudo\@gmail.com>)
};

mix3

package Plack::App::Directory::ImageView;

use parent qw(Plack::App::Directory);

sub serve_path {
  my($self, $env, $dir, $fullpath) = @_;
	my $ret = $self->SUPER::serve_path($env, $dir, $fullpath);
	return $ret if (ref($ret->[2]) eq 'Plack::Util::IOWithPath');
	$ret->[2][0] =~ s!</head>!<script type="text/javascript" src="http://swfobject.googlecode.com/svn/trunk/swfobject/swfobject.js"></script>\n</head>!g;
	$ret->[2][0] =~ s!<a href='(.+?)'>(.+?)\.(gif|png|jpe?g)</a>!<a href='\1'><img src='\1' /></a><br />\2\.\3!g;

mix3

package Plack::App::Directory::ImageView;

use parent qw(Plack::App::Directory);

sub serve_path {
    my($self, $env, $dir, $fullpath) = @_;
    my $ret = $self->SUPER::serve_path($env, $dir, $fullpath);
    return $ret if (ref($ret->[2]) eq 'Plack::Util::IOWithPath');
    $ret->[2][0] =~ s/<a href='(.+?)'>(.+?)\.(gif|png|jpe?g)<\/a>/<a href='\1'><img src='\1' \/><\/a><br \/>\2\.\3/g;
    $ret;

mix3

use Parallel::Benchmark;
use Test::mysqld;

my $mysqld = Test::mysqld->new(
  my_cnf => {
		'skip-networking' => '',
	},
);

{

mix3

use Parallel::Benchmark;
use Test::mysqld;

my $mysqld = Test::mysqld->new(
  my_cnf => {
		'skip-networking' => '',
	},
);

{

mix3

use Parallel::Benchmark;
use Test::mysqld;

my $mysqld = Test::mysqld->new(
  my_cnf => {
		'skip-networking' => '',
	},
);

{

mix3

use Parallel::Benchmark;
use Test::mysqld;

my $mysqld = Test::mysqld->new(
  my_cnf => {
		'skip-networking' => '',
	},
);

{

mix3

use Parallel::Benchmark;
use Test::mysqld;

my $mysqld = Test::mysqld->new(
  my_cnf => {
		'skip-networking' => '',
	},
);

{

mix3

use Parallel::Benchmark;
use Test::mysqld;

my $mysqld = Test::mysqld->new(
	my_cnf => {
		'skip-networking' => '',
	},
);

{