Yappo's Journal

shipped Test::PPPort 0.03

Yappo — 2009-07-01T03:27:44+00:00

supported for Test::More subtests
Ovid++ http://use.perl.org/~Ovid/journal/39193
dagolden++ http://echo.dagolden.com/~xdg/2009-06-30-test-builder-new.txt
charsbar++ http://d.hatena.ne.jp/charsbar/20090701/1246415840

HTTP::Engine is moved to GitHub

Yappo — 2009-05-19T08:00:33+00:00

I made the account with GitHub for httpengine.
http://github.com/http-engine

I worked httpengine's moved repository to GitHub.
A part of Collaborators could commit here directly.
http://github.com/http-engine/HTTP-Engine

I go the following as work for the next version.

- base path ( $req->uri->base ) of application is made into a value common to all the Interfaces.
Although it is of Catalyst origin, another value may come by CGI, ModPerl, and ServerSimple on the contrary now.

Dist::Zilla meets Module::Setup

Yappo — 2008-10-24T04:00:41+00:00

What can I do?

Name space ranking used well by CPAN module

Yappo — 2008-10-10T09:41:08+00:00

find ~/minicpan | grep tar.gz | rev | awk -F/ '{print $1}' | rev | awk -F- '{print $1}' | sort | uniq -c | sort -r
~/minicpan is carrying out mirroring by CPAN::Mini.

638 Net
405 WWW
370 Class
362 Catalyst
333 HTML
332 Apache
326 Text
317 XML
314 Data
312 CGI
305 POE
260 Acme
259 Test
242 File
238 Lingua
235 DBIx
200 Math
199 Tie
185 Template
159 Devel
158 Tk
155 Kwiki
151 Win32
150 Bundle
138 Crypt
135 Games
124 Business
123 Module
122 Mail
116 WebService
110 Geo
108 HTTP
101 Config
100 IO

more more list http://d.hatena.ne.jp/yappo/20081010/1223630386

Module::Setup is so cute!

Yappo — 2008-10-02T01:57:04+00:00

i released Module::Setuphttp://search.cpan.org/dist/Module-Setup/.
module creation can be started very easily.
You can start module creation very easily like Module::Starter.
There is affinity of SVN and Git and it can extend simply.

I got the yapc.asia domain

Yappo — 2008-04-01T05:59:16+00:00

yapc.asia is so cool domain!

http://yapc.asia/
redirect to http://conferences.yapcasia.org/ya2008/ now.

yeah!

Kwiki::Diff::Mutual

Yappo — 2006-11-18T04:44:00+00:00

I created Kwiki::Diff::Mutual.

Kwiki::Diff::Mutual is Strong diff is displayed.
Kwiki::Diff::Mutual is Diff is displayed between specific revisions.
Kwiki::Diff::Mutual is Diff in the line is displayed by using String::Diff.

example
http://hatenawiki.blogdb.jp/?action=diff&page_name=HomePage&revision_id=2&curren t_revision_id=3

String::Diff

Yappo — 2006-11-18T04:39:31+00:00

I created String::Diff.
String::Diff is line diff tool, very simple.

# simple diff my $diff = String::Diff::diff('this is Perl', 'this is Ruby'); print "$diff->[0]\n";# this is [Perl] print "$diff->[1]\n";# this is {Ruby}

my $diff = String::Diff::diff('this is Perl', 'this is Ruby',{ remove_open => '<del>', remove_close => '</del>', append_open => '<ins>', append_close => '</ins>', }); print "$diff->[0]\n";# this is <del>Perl</del> print "$diff->[1]\n";# this is <ins>Ruby</ins>

Algorithm::Diff is used.
thank you.

Geo::Coordinates::Converter

Yappo — 2006-11-07T12:20:32+00:00

I released Geo::Coordinates::Converter 0.02.
this distribution is framework of the geometric transformation.

It newly made it though the relapse discernment of the wheel because there was no thing mounted
in the form of the framework.

SYNOPSIS

use strict; use warnings; use Geo::Coordinates::Converter; my $geo = Geo::Coordinates::Converter->new( lat => '35.65580', lng => '139.65580', datum => 'wgs84' ); my $point = $geo->convert( dms => 'tokyo' ); print $point->lat; print $point->lng; print $point->datum; print $point->format; my $clone = $point->clone; my $geo2 = Geo::Coordinates::Converter->new( point => $clone ); my $point2 = $geo->convert( degree => 'wgs84' ); print $point2->lat; print $point2->lng; print $point2->datum; print $point2->format;

Datum that is now commands a majority for the Japanese.
I am wishing that it also wants the people in other countries to use
this.
It is ready to add it to this as soon as the survey a land system in
other countries understands.

I want feedback if there is an opinion.

#Blog pet "Excite Honyaku" wrote this entry.

Soozy test code

Yappo — 2006-11-01T13:09:34+00:00

use strict; use warnings; use lib 'lib'; BEGIN { $ENV{JITENSYA_ROOT} = '/home/soozy/jitensya'; $ENV{JITENSYA_DEBUG} = 1; $ENV{JITENSYA_MODE} = 'dev'; require Jitensya; } local_request('/app/'); sub local_request { require HTTP::Request::AsCGI; my $request = request( shift(@_) ); my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup; Jitensya->handle_request; return $cgi->restore->response; } sub request { my $request = shift; require HTTP::Request; unless ( ref $request ) { if ( $request =~ m/^http/i ) { $request = URI->new($request)->canonical; } else { $request = URI->new( 'http://localhost' . $request )->canonical; } } unless ( ref $request eq 'HTTP::Request' ) { $request = HTTP::Request->new( 'GET', $request ); } return $request; }

Catalyst inspired

Hello! Hello!

Yappo — 2006-11-01T03:38:38+00:00

I started the english diary(blogging) in use Perl;

I am making the following module now in the development.

Geo::Coordinates::Converter - geo coordinates are easily converted
Lingua::JA::Summarize::Extract - summary generator for Japanese
Geography::AddressExtract::Japan - address extraction from natural document for Japanese
Soozy - Sledge and Catalyst based web frame work module

It works to up-load these to CPAN. However, I do not think that it up-loads Soozy.

These get in the svn repository.

http://svn.yappo.jp/repos/public/