dann

#!/bin/zsh
rm -rf cover_db
make realclean
perl Makefile.PL
HARNESS_PERL_SWITCHES=-MDevel::Cover=+ignore,inc,-coverage,statement,branch,condition,path,subroutine make test
cover
open cover_db/coverage.html

dann

#!/bin/sh
rm -rf nytprof
rm nytprof.out
perl -d:NYTProf -S ./tools/profile.pl .
nytprofhtml
open ./nytprof/index.html

dann

#!/usr/bin/perl
use strict;
use Web::Scraper;
use URI;

my $uri     = URI->new("http://dann.g.hatena.ne.jp/keywordlist");
my $scraper = scraper {
    process '//div[@class="refererlist"]/ul/li/a', 'keywords[]' => {
        name => 'TEXT',
        url  => '@href',

dann

#!/usr/bin/env perl
use strict;
use warnings;
use WebService::Simple;
use Digest::MD5 qw(md5_hex);
use Path::Class qw(dir);
use Perl6::Say;
use HTTP::Async;
use HTTP::Request;

dann

package WWW::HatenaKeyword;
use MooseX::Method;
use Moose;
use WWW::HatenaLogin;
use Web::Scraper;
use Data::Dumper;
use JSON::Syck 'Load';

our $VERSION = '0.01';

dann

    my @results = (); 
    while ( my ($response, $id) = $async->wait_for_next_response ) { 
        warn "Getting $id";
        push @results, +{ id => $id, content => $self->parser->parse( $response->content) };
    }   
    my @sorted_results =  sort { $a->{"id"} cmp $b->{"id"} } @results;

dann

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

use Mac::iTunes;
use File::Find::Rule;
use Path::Class;
use Cwd;
use Perl6::Say;

dann

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

use Web::Scraper;
use HTTP::Async;
use HTTP::Request;
use Path::Class;
use LWP::UserAgent;
use Perl6::Say;

dann

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

use Web::Scraper;
use HTTP::Async;
use HTTP::Request;
use Path::Class;
use LWP::UserAgent;
use Perl6::Say;

dann

makeSearchCommand({
  name: "cpan",
  url: "http://search.cpan.org/search?q={QUERY}&mode=module",
  icon: "http://search.cpan.org/favicon.icon",
  description: "Searches <a href=\"http://search.cpan.org/\">CPAN</a> for your words.",
  preview: function(pblock, directObject){
    var searchTerm = directObject.text;
    var pTemplate = "Searches <b>${query}</b> from <a href=\"http://search.cpan.org/\">CPAN</a>.";
    var pData = {query: searchTerm};
    pblock.innerHTML = CmdUtils.renderTemplate(pTemplate, pData);