dann

  global:
     hosts:
        - path: /home/dann/minicpan
          scehma: file
          host: 

dann

#!/usr/bin/env perl
use AnyEvent;
use AnyEvent::Feed;

my $FLICKR_IDOLS_RSS
    = 'http://pipes.yahoo.com/pipes/pipe.run?_id=WtqVti0j3BGz37dMJxOy0Q&_render=rss&search=idol+japanese+sexy';
my $POLLING_INTERVAL = 30;

run();
exit;

dann

#!/usr/bin/env perl
use strict;
use warnings;
use LWP::UserAgent;
use Perl6::Say;
use File::Basename;

main();
exit;

dann

## このコードだと、say 'Yasako' の最初のスレッドしか実行されない。threadのイメージがなんか違うなぁ。

use Coro;
use Perl6::Say;

push @coros, async {
    my $i = 0;
    while (1) {
        say 'Yasako';
    }   

dann

#!/usr/bin/env perl
use strict;
use warnings;
use Web::Scraper;
use WWW::Veoh::Download;
use Config::Pit;

main();
exit;

dann

#!/usr/bin/env perl
use HTTP::Engine;
use HTTP::Engine::Middleware;

main();

sub main {
    my $engine = setup_engine();
    $engine->run();
}

dann

jetpack.statusBar.append({
  html: "Boom<i>!</i>"
});

dann

jetpack.statusBar.append({
  html: "Boom<i>!</i>",
  width: 45
});

dann

rm -rf ${WORKSPACE}/angelos
git clone git://github.com/dann/angelos.git
cd angelos/angelos-core
tools/test_format_junit.pl t/integration/010_basics/*.t t/unit/*/*.t

dann

#!/usr/bin/env/perl
use strict;
use warnings;

main();

sub main {
    my $reserved_instance_cost_per_month = reserved_instance_cost_per_month();
    print "1 reserved instance  = ${reserved_instance_cost_per_month} yen/month\n";
}