akiym

use Mojolicious::Lite;
use Text::Markdown qw/markdown/;

get '/' => sub {
    my $self = shift;
    $self->render('index');
};

get '/markdown' => sub {
    my $self = shift;

akiym

#compdef cpanm
#autoload

typeset -A opt_args
local context state line

_arguments -C \
    '(-h)'{-h,--help}'[prints help]' \
    '(-v --verobse)'{-v,--verbose}'[turn on chatty output.]' \
    '(-q --quiet)'{-q,--quiet}'[turn off the most output.]' \

akiym

use strict;
use warnings;
use Furl;
use LWP::UserAgent;

my $url = 'http://blog.livedoor.jp/dqnplus/';

{
    my $furl = Furl->new;
    my $res = $furl->get($url);

akiym

#!/usr/bin/env perl

use Mojolicious::Lite;

use Mojo::Asset::File;
use Digest::MD5 qw(md5_hex);
use File::Spec;
use IO::File;

my $dir = app->home->rel_dir('images');