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');

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

#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 Mojolicious::Lite;
use Text::Markdown qw/markdown/;

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

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

akiym

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

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

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

akiym

use Mojolicious::Lite;
use feature qw/switch/;
use utf8;
use Text::Markdown qw/markdown/;
use Text::Xatena;
use Pod::Simple::XHTML;

get '/' => 'index';

my $xatena = Text::Xatena->new();

akiym

use strict;
use warnings;
use utf8;

package Amon2::Setup::Flavor::Teng;
use parent qw(Amon2::Setup::Flavor::Basic);

sub run {
    my $self = shift;

akiym

use strict;
use warnings;
use Encode;
use JSON;
use LWP::UserAgent;
use URI;
use Data::Dumper;
use Data::Recursive::Encode;

my $text = shift or die;

akiym

use strict;
use warnings;
use Web::Query;

my $elem = wq('http://ch.nicovideo.jp/channel/ch60001')
    ->find('ul.g-video-mini .g-video-right');

$elem->{trees} = [$elem->{trees}[0]];

$elem->each(sub {

akiym

require 'formula'

class GitManuals < Formula
  url 'http://ftp.jaist.ac.jp/pub/Linux/kernel.org/software/scm/git/git-manpages-1.7.6.1.tar.bz2'
  md5 'cae559424a62507cb2c15252d85a158e'
end

class GitHtmldocs < Formula
  url 'http://ftp.jaist.ac.jp/pub/Linux/kernel.org/software/scm/git/git-htmldocs-1.7.6.1.tar.bz2'
  md5 'f698e0abbf1555582e30320930391c59'