kits

#!/usr/bin/env perl

### PodV start ###
package PodV;

use strict;
use warnings;
no warnings 'redefine';
use Encode qw(decode FB_HTMLCREF);
use Pod::Perldoc;

kits

#!perl
use strict;
use warnings;
use PadWalker qw(peek_sub);

require 'path/to/cpanm';

my $extract_to = 'lib';
my $fatpacked = peek_sub($INC[0])->{'%fatpacked'};

kits

t/op/magic.....................................................ok
t/op/method....................................................ok
t/op/mkdir.....................................................# Failed at op/mkdir.t line 20
#      got 'ファイルが存在します。'
# expected /(?i-xsm:cannot move|exist|denied|unknown)/
# Failed at op/mkdir.t line 24
#      got 'ファイルもディレクトリもありません。'
# expected /(?i-xsm:cannot find|such|exist|not found|not a directory|unknown)/
FAILED at test 3
t/op/my........................................................ok

kits

*** ./perlbrew	2010-11-05 08:56:08.156250000 +0900
--- perl5/perlbrew/bin/perlbrew	2010-11-10 22:33:48.046875000 +0900
***************
*** 1116,1125 ****
          unless ($dist_git_describe) {
              my $mirror = $self->conf->{mirror};
              my $header = $mirror ? { 'Cookie' => "cpan=$mirror->{url}" } : undef;
!             my $html = $self->_http_get("http://search.cpan.org/dist/$dist", undef, $header);
  
!             ($dist_path, $dist_tarball) =

kits

#!/usr/bin/env perl
use strict;
use File::Spec;

load_cpanm();

*App::cpanminus::script::search_module = sub {
    my ($self, $module) = @_;

    my $PKGS = '02packages.details.txt.gz';

kits

package AquesTalk;

use Any::Moose;
use Win32::API;
use Encode ();

our $VERSION = '0.02';

# error messages

kits

#!/usr/bin/env perl

# pod2html の日本語ヘッダへのアンカーをWikipedia風に変更。
# 使い方は pod2html と同じ。

use strict;
use warnings;
use Pod::Html;

{

kits

var WshShell = WScript.CreateObject("WScript.Shell");

while (1) {
	var intButton = WshShell.Popup(
		"Quit?", 60, "Blocker", 0 + 32);

	if (intButton == 1)
		break;
	else
		WScript.Sleep(100);

kits

#!perl

# Excel列名 ←→ 数値 変換
# http://d.hatena.ne.jp/JunichiIto/20111102/1320253815

use strict;
use warnings;

my %abc2num;
for (1 .. 26) {

kits

// ==UserScript==
// @name           clean google links
// @namespace      http://www.akatsukinishisu.net/myscripts
// @description    clean links in google search result page (remove "onmousedown" attribute).
// @include        http://www.google.co.jp/search?*
// @include        https://www.google.co.jp/search?*
// ==/UserScript==

(function() {
    var links = document.getElementsByTagName('a');