Fayland and Perl Programming

a module started with O

2009-07-11T14:21:00.002+08:00

ORDB::Unihan - An ORM for the published Unihan database

a mixin of ORLite and Unihan database. the original unihan database is txt based, and this one is sqlite.
even if you don't want to use ORLite, you still can use the Unihan.sqlite by ORDB::Unihan->sqlite_path();

bla bla, not sure how useful it is. just for fun.

Enjoy

QueryLog support for Catalyst::Model::DBIC::Schema

2009-06-17T13:12:00.002+08:00

well, I wrote Catalyst::Model::DBIC::Schema::QueryLog before. it's fine. it works.

mst released the new Catalyst::Model::DBIC::Schema today. built on top of Moose, with two traits: Caching and Replicated.
It reminds me to write Catalyst::TraitFor::Model::DBIC::Schema::QueryLog
trait is great. easy to read, configurable and sane.

Enjoy. Thanks

DBIx-Class talk

2009-05-27T11:08:00.001+08:00

I just gave a DBIx-Class talk on the annual meeting of Zorpia 1 hour ago. it's not a success one, but I still want to share with you. check:

http://www.fayland.org/talks/2009_Zorpia_DBIx_Class/dbix-class.xul

Enjoy, Thanks.

manage Task::Padre::Plugins with ORDB::CPANTS

2009-05-24T07:48:00.004+08:00

To update a Task:: module is not so hard but trivial. you need find out the new version of existing modules, and those haven't added yet.
well, do it manually is not so Perl-ish. we have Perl, we should do it automatically by running a script.

it's pretty good we have ORDB::CPANTS from Alias.
1, we get all plugins by ORDB::CPANTS through used_by
2, split them into requires and feature.
3, get the META info through YAML::LoadURI
4, generate the main part of Makefile.PL and Plugins.pm

you can find the code here: http://svn.perlide.org/padre/trunk/Task-Padre-Plugins/auto_generate.pl

I know I can generate Makefile.PL and Plugins.pm directly, but it's good enough for now.

Enjoy.

Xi'an trip next week

2009-05-22T18:07:00.002+08:00

We (Zorpia people) will hold an annual meeting next week in Xi'an.
It would be a lot of fan that I'll play basketball during the trip. 24 people from 4 different countries/regions.

if you're nearby, please drop by if you like it.

Thanks

github instead of google code

2009-05-19T11:42:00.002+08:00

yes. I do love github more than google code. it's not the problem of git or svn. svn is fine.

the point is participation.
In google code, it's very hard to contribute some code to one project if you're not the author. it disappoints me a lot.
The "fork" button in github is very helpful. people forked my repos then pull requests to ask me to merge (like perl-net-github, dist-zilla-plugin-repository). I forked someone's repos then pull back (like theschwartz-moosified, dist-zilla, git-pureperl etc).

it's awesome. go start using github right now. :)

SuperCollider Programming

2009-05-19T09:53:00.001+08:00

what the hell is SuperCollider Programming?

I'm glad that my blog is "Fayland and Perl Programming".

also I hate that blogger.com is blocked in China again. STUPID.

DBIx::Class::ResultSet::Void and TheSchwartz::Moosified

2009-05-12T06:28:00.002+08:00

Big thanks to ribasushi, the new DBIx::Class::ResultSet::Void 0.04 is using
# SELECT 1 FROM item me WHERE ( me.id = ? ) LIMIT 1: '1'
# INSERT INTO item ( id, name) VALUES ( ?, ? ): '1', 'A'
instead of COUNT(*). it's much faster now.

Another big thanks to stash from socialtext, TheSchwartz::Moosified 0.04 with PostgreSQL support and bug fixes.

Enjoy!

DBIx::Class::ResultSet::Void

2009-05-10T20:13:00.003+08:00

some time I'm really feeling sick when I use update_or_create or find_or_create, the default DBIx::Class::ResultSet return DBIx::Class::Row object by using find.
it's useful when I need the $row object, but it's dummy if I don't care.

I wrote DBIx::Class::ResultSet::Void today. It would use count instead of find if not defined wantarray. it means when I call
$rs->find_or_create( { id => 1, name => 'A' } );
instead of
my $row = $rs->find_or_create( { id => 1, name => 'A' } );
it would generate SQLs like:
# SELECT COUNT( * ) FROM item me WHERE ( me.id = ? ): '1'
# INSERT INTO item ( id, name) VALUES ( ?, ? ): '1', 'A'
it's a little better I think.

read more on the POD and Enjoy!

what am I looking forward today

2009-05-07T19:45:00.002+08:00

The Definitive Guide to Catalyst: Writing Extendable, Scalable and Maintainable Perl–Based Web Applications by Kieren Diment and Matt Trout.

I don't know which month will it be released, but I'm really looking forward to it. :)

Thanks.

irc log

2009-05-05T19:48:00.002+08:00

I didn't know that keep a public irc log is wrong until mst pointed it to me today.
Sorry for any trouble caused and it's private now.

Thanks.

new DayDayUp

2009-04-29T06:34:00.002+08:00

inspired by jrock's Multimethods and Unshortening URLs with Modern Perl, I decided to rewrite my DayDayUp CPAN module.

it's really very cool to write code with KiokuDB and MooseX::Declare. less code. more focus on real.
I'm planing to write more, but it's for now.

even it fails on Win32, it's still worth to try. :)
Enjoy

planet you can't miss today

2009-04-28T08:03:00.001+08:00

http://ironman.enlightenedperl.org/

Enjoy

CPAN updates

2009-04-21T15:50:00.002+08:00

I spent lots of time to write CPAN module in past two days. it's not so fun but enjoyable.

App::GitHub - 8 dists 3 days.
Dist::Zilla::Plugin::MetaResources - DEPERCATED, it will be supported in Dist::Zilla core.
Dist::Zilla::Plugin::Repository
Net::GitHub - also 8 dists 3 days.

To write a CPAN module is really not so hard. please go on and enjoy it.

Thanks.

App::GitHub

2009-04-20T20:25:00.002+08:00

well, App::GitHub is a command line tool wrapped by Net::GitHub.

for a brief view:
$> github.pl

Welcome to GitHub Command Tools! (Ver: 0.04)
Type '?' or 'h' for help.

github> ?
command argument description
repo :user :repo set owner/repo, eg: 'fayland perl-app-github'
login :login :token authenticated as :login
loadcfg authed by git config --global github.user|token
?,h help
q,exit,quit exit

Repos
rshow more in-depth information for the :repo in repo
rlist list out all the repositories for the :user in repo
rsearch WORD Search Repositories
watch watch repositories (authentication required)
unwatch unwatch repositories (authentication required)
fork fork a repository (authentication required)
create create a new repository (authentication required)
delete delete a repository (authentication required)
set_private set a public repo private (authentication required)
set_public set a private repo public (authentication required)
network see all the forks of the repo
tags tags on the repo
branches list of remote branches

Issues
ilist open|closed see a list of issues for a project
iview :number get data on an individual issue by number
iopen open a new issue (authentication required)
iclose :number close an issue (authentication required)
ireopen :number reopen an issue (authentication required)
iedit :number edit an issue (authentication required)
ilabel add|remove :num :label
add/remove a label (authentication required)

File/Path related
cd PATH chdir to PATH

Others
rshow :user :repo more in-depth information for a repository
rlist :user list out all the repositories for a user

github> loadcfg

github> repo fayland perl-app-github

fayland/perl-app-github> rshow
{
"owner" : "fayland",
"private" : false,
"name" : "perl-app-github",
"description" : "App::GitHub CPAN module",
"homepage" : "",
"watchers" : 2,
"forks" : 0,
"fork" : false,
"url" : "http://github.com/fayland/perl-app-github"
}

fayland/perl-app-github> repo fayland sandbox2

fayland/sandbox2> ilist
[
{
"number" : 1,
"position" : 1,
"state" : "open",
"body" : "Test Issue body.",
"created_at" : "2009/04/19 06:08:30 -0700",
"updated_at" : "2009/04/19 06:09:17 -0700",
"user" : "fayland",
"title" : "Test Issue",
"votes" : 0
},
{
"number" : 2,
"position" : 2,
"state" : "open",
"body" : "new test 3\nnew test 2",
"created_at" : "2009/04/19 18:44:49 -0700",
"updated_at" : "2009/04/19 18:50:44 -0700",
"user" : "fayland",
"title" : "new test 2",
"votes" : 0
},
{
"number" : 3,
"position" : 3,
"state" : "open",
"body" : "s",
"created_at" : "2009/04/19 18:51:17 -0700",
"updated_at" : "2009/04/19 18:51:31 -0700",
"user" : "fayland",
"title" : "sssssssss",
"votes" : 0
}
]

fayland/sandbox2> q

for now, there are ONLY repos and issue related command. but I would add more in next few days.

Thanks and Enjoy.

Net::GitHub 0.06

2009-04-19T12:50:00.002+08:00

github just released its V2 API version days ago, I spent some hours to update the Net::GitHub.

it's really not a fun to both support V1 and V2 on the same time, I mean some code like follows:

use Net::GitHub;
my $g2 = Net::GitHub->new( version => 2 ); # use Net::GitHub::V2
my $g2 = Net::GitHub->new( version => 1 ); # use Net::GitHub::V1

after a nice sleep, I come out a solution like:

package Net::GitHub;

use Moose;

our $VERSION = '0.06';
our $AUTHORITY = 'cpan:FAYLAND';

sub new {
    my $class = shift;
    my $params = $class->BUILDARGS(@_);

    my $obj;
    if ( $params->{version} == 1 ) {
        require Net::GitHub::V1;
        $obj = Net::GitHub::V1->new($params);
    } else {
        require Net::GitHub::V2;
        $obj = Net::GitHub::V2->new($params);
    }

    return $class->meta->new_object(
        __INSTANCE__ => $obj,
        @_,
    );
}

no Moose;
__PACKAGE__->meta->make_immutable;

1;

maybe there is a better way, but it works at least for now.

Thanks and enjoy.

Dist::Zilla::Plugin::PerlTidy

2009-04-05T15:57:00.003+08:00

I just uploaded the Dist-Zilla-Plugin-PerlTidy to CPAN today.

Dist::Zilla is a distribution builder. with it, you can write less, maintain less files. which means less bugs.
for more information, you can check the slides: http://www.slideshare.net/rjbs/distzilla-presentation

Dist-Zilla-Plugin-PerlTidy contains two parts.
one is the App Command, Dist::Zilla::App::Command::perltidy, which let you perltidy your real code.
the other one is the Plugin, Dist::Zilla::Plugin::PerlTidy. it doesn't affect your working code, it just perltidy the code for release (which means included in the tar.gz)

the code is simple, but it's useful.

Have fun!

Apache Tip: AddType

2009-03-18T06:13:00.002+08:00

see I setup a http://code.fayland.org/ for code review. then I want to show plain text for pl file like Makefile.PL
but by default, it's handled by perl. and it shows a 500 error in browser.

with the dreamhost support, I create a .htaccess like


RemoveHandler .pl .PL .t .html
AddType text/plain .pl .PL .t .html

and it works!

Thanks.

GitStore

2009-03-13T13:26:00.002+08:00

I just released another module http://search.cpan.org/dist/GitStore/ this morning.

GitStore - Git as versioned data store in Perl

use GitStore;

my $gs = GitStore->new('/path/to/repo');
$gs->store( 'users/obj.txt', $obj );
$gs->store( ['config', 'wiki.txt'], { hash_ref => 1 } );
$gs->commit();
$gs->store( 'yyy/xxx.log', 'Log me' );
$gs->discard();

# later or in another pl
my $val = $gs->get( 'user/obj.txt' ); # $val is the same as $obj
my $val = $gs->get( 'config/wiki.txt' ); # $val is { hashref => 1 } );
my $val = $gs->get( ['yyy', 'xxx.log' ] ); # $val is undef since discard

for now, it requires the Git::PurePerl master code. you must git clone it from http://github.com/acme/git-pureperl/tree/master and install into your local dir.

The git repo is http://github.com/fayland/perl-git-store/tree/master
welcome to fork it and submit any patches.

Thanks.

Net::GitHub

2009-03-08T13:41:00.002+08:00

I just released the new http://search.cpan.org/dist/Net-GitHub/.

it's basically a Perl interface to github.com which is the most popular git host in the world. perl5's source and perl6's rakudo source are there too.

I'm starting to like git and I put my code there too.
be inspired by Net::Google::Code, I created the http://github.com/fayland/perl-net-github/tree/master
everyone is welcome to fork it then pull request back to me.

Thanks very much, Enjoy.

note: github and Win32

2009-03-07T12:01:00.002+08:00

when author is unknown, you need set
E:\Fayland\perl-net-github>git config --global user.name "fayland"
E:\Fayland\perl-net-github>git config --global user.email fayland@gmail.com

just a note.

if more than one master, you need
git config branch.master.remote origin
git config branch.master.merge refs/heads/master
from http://snippets.dzone.com/posts/show/5714

another note.

Perl tip: can returns coderef

2009-02-23T15:04:00.002+08:00

well, I just released the MooseX::Dumper today.

miyagawa on irc.perl.org #moose just told me that ->can() returns the coderef, so that I don't need to do follows:

        if ( $self->dumper_class->can($meth) ) {
            my $class = $self->dumper_class;
            my $val = eval "${class}::${meth}(\@_)"; # no critic
            return $val;
        }

Instead, just do:

        if ( my $dump_code = $self->dumper_class->can($meth) ) {
            return $dump_code->(@_);
        }

Yup, much more simpler and cleaner.

Thanks, miyagawa. 0.02 is on the way. :)

step by step: make daydayup as a WinXP service

2009-02-22T23:11:00.004+08:00

even it's very old, it's still very useful: http://www.perlguy.com/articles/nt_service.html

step 1, download the toolkit from http://www.microsoft.com/downloads/details.aspx?familyid=9d467a69-57ff-4ae7-96ee-b18c4790cffd&displaylang=en

step 2, cmd: then

C:\Documents and Settings\Administrator>INSTSRV DayDayUp "C:\Program Files\Windows Resource Kits\Tools\srvany.exe"

The service was successfuly added!

Make sure that you go into the Control Panel and use
the Services applet to change the Account Name and
Password that this newly installed service will use
for its Security Context.

step 3, cmd, regedit, then find "DayDayUp"
* Right click on the key and choose New, then Key. This will create what looks like a new folder. Name the new key Parameters.
* Right click on Parameters and select New, then String Value. In the space provided, type Application.
* Again, right click on Parameters and select New, then String Value. In the space provided, type AppParameters.
* Right click on Application and choose Modify, then type in the path to your Perl binary like C:\strawberry\perl\bin\perl.exe
* Next, right click on AppParameters and select Modify. type E:\Fayland\gsvn\CPAN\day_day_up\bin\day_day_up daemon 3001

OK, everything is done now. if you go Services, you'll find DayDayUp in list, and you can start it (it will be started whenever computer gets start)

Thanks.

today's module: Scope::Guard

2009-02-22T21:59:00.004+08:00

Updated: Thanks for Eddy to point out the errors. :)

I have been very happy with Scope::Guard recently.

mainly the module can reduce the size of the code if you use it correctly.

for example, we have some piece of code like follows to deal with Sphinx error.

sub while_error {
    my ( $ret ) = @_;
    
    my $use_db = { use_db_please => 1 };
    
    # 1, connection to {localhost}:{3312} failed: Connection refused
    if ($ret->{error} =~ /Connection refused/is) {
       faked_try_to_reconnect();
       print STDERR "$ret->{error}\n";
       return $use_db;
    }
    # 2, received zero-sized searchd response
    elsif ($ret->{error} =~ /zero-sized searchd/) {
        faked_try_to_re_search();
        print STDERR "$ret->{error}\n";
        return $use_db;
    }
    # 3, unknown local index
    elsif ( $ret->{error} =~ /unknown local index/ ) {
        faked_try_to_re_index();
        print STDERR "$ret->{error}\n";
        return $use_db;
    }
    # 4, recv: Connection reset by peer
    elsif ( $ret->{error} =~ /Connection reset by peer/ ) {
        print STDERR "$ret->{error}\n";
        return $use_db;
    }
    return $ret;
}

OK, it's not so ugly.
but with Scope::Guard, we can rewrite it much more clear and small-size.

sub while_error {
    my ( $ret ) = @_;

    my $use_db = { use_db_please => 1 };
    
    my $sg = Scope::Guard->new( sub {
        print STDERR "$ret->{error}\n";
    } );

    # 1, connection to {localhost}:{3312} failed: Connection refused
    if ($ret->{error} =~ /Connection refused/is) {
       faked_try_to_reconnect();
       return $use_db;
    }
    # 2, received zero-sized searchd response
    elsif ($ret->{error} =~ /zero-sized searchd/) {
        faked_try_to_re_search();
        return $use_db;
    }
    # 3, unknown local index
    elsif ( $ret->{error} =~ /unknown local index/ ) {
        faked_try_to_re_index();
        return $use_db;
    }
    # 4, recv: Connection reset by peer
    elsif ( $ret->{error} =~ /Connection reset by peer/ ) {
        return $use_db;
    }
    
    $sg->dismiss();
    
    return $ret;
}

I'm not sure if you're happy with it or not, but I like it. :)
I had used it in http://code.fayland.org/fayland/CPAN/day_day_up/lib/DayDayUp/Backup.pm. that's just another example.

Thanks and Enjoy!

CPAN Top 100

2009-02-15T16:37:00.002+08:00

Adam Kennedy just published his "The CPAN Top 100" today.

I just found that I take 11 places in "CPANTS Heavy 100". one is the Catalyst App Foorum and the others are Padre plugins. well, that's not a prize, I admire those listed in "CPANTS Volatile 100". :)

Thanks.