jkondo's Journal

Moved to VOX

jkondo — 2007-03-30T21:14:39+00:00

I've moved this journal to VOX.com. See you at
http://jkondo.vox.com/

DBIx::MoCo 0.07 released

jkondo — 2007-03-09T23:30:08+00:00

I uploaded DBIx::MoCo 0.07 today. Changes from 0.06 are as follows. 0.07 Fri Mar 9 2007 - Added DBIx::MoCo::Schema for schema definition - Added count method to DBIx::MoCo - Removed keys method and added unique_keys method to MoCo - Changed primary_keys, unique_keys to get info automatically - Added cache_status method to DBIx::MoCo - Added DBIx::MoCo::Column and URI plugin for inflating columns - Added DBIx::MoCo::Join for joined classes - Added DBIx::MoCo::Readonly for read only classes. - Fixed problem new session will start when save_changed is called. - Added retrieve_by_a_or_b handler into DBIx::MoCo - Added descriptions to MoCo's pod. - Added retrieve_keys to MoCo Enjoy!

Text::Hatena 0.20 released.

jkondo — 2007-02-27T21:58:42+00:00

I uploaded Text::Hatena 0.20. It's quite new version of Text::Hatena. I rewrote the whole code using Parse::RecDescent and Regexp::Assemble. Number of modules were reduced to 2 from 47 files. Line of codes where changed from 2600 lines to 600 lines. My benchmark marked 300-400% higher performance than ver.0.16. I also removed some syntaxes which were specific to Hatena Diary. Now, API for parsing text were changed too. Please be careful to upgrade your Text::Hatena to version 0.20+. You can use Text::Hatena simply as below. my $html = Text::Hatena->parse($text); And, you can extend your parser like this. You can easily make your original parser which can handle some other format. package MyParser; use strict; use warnings; use base qw(Text::Hatena); __PACKAGE__->syntax(q| h3 : "\n*" timestamp(?) inline(s) timestamp : /\d{9,10}/ '*' |); sub h3 { my $class = shift; my $items = shift->{items}; my $title = $class->expand($items->[2]); return if $title =~ /^\*/; my $ret = "<h3>$title"; if (my $time = $items->[1]->[0]) { $ret .= qq|<span class="timestamp">$time</span>|; } $ret .= "</h3>\n"; } sub timestamp { my $class = shift; my $items = shift->{items}; return $items->[0]; } 1; You can also extend inline elements like this. Text::Hatena::AutoLink->syntax({ 'id:([\w-]+)' => sub { my $mvar = shift; my $name = $mvar->[1]; return qq|<a href="/$name/">id:$name</a>|; }, 'd:id:([\w-]+)' => sub { my $mvar = shift; my $name = $mvar->[1]; return qq|<a href="http://d.hatena.ne.jp/$name/">d:id:$name</a>|; }, }); I'd like to get your feedback.

I changed the name of my model class to DBIx::MoCo again.

jkondo — 2007-02-12T20:17:33+00:00

I changed the name of my model class to DBIx::MoCo again. I uploaded DBIx::MoCo ver. 0.06 and removed MoCo* files just now. Thanks for suggesting me to change the name. I also implemented cache_connection attribute in DBIx::MoCo::DataBase. If its set to 0, DBIx::MoCo::DataBase uses DBI->connect instead of DBI->connect_cached. DBIx::MoCo::DataBase->cache_connection(0);

I fixed bug in MoCo and added keys accessor.

jkondo — 2007-02-04T01:31:45+00:00

I uploaded MoCo ver 0.05 today.
I fixed a bug that cached objects are not flushed correctly when they're stored without primary keys.
I added keys accessor to MoCo and changed flush mechanism.

If you define Entry.pm like this,

package Entry;
__PACKAGE__->primary_keys(['entry_id']);
__PACKAGE__->keys(['uri']);

and, retrieve an entry from uri,

my $e = Entry->retrieve_by_uri('http://123');

and, create a new entry.

my $e2 = Entry->create(uri => 'http://123');

The first cache, $e is flushed correctly.

(I'm still considering about the name.)

I changed the name to MoCo and released ver 0.04.

jkondo — 2007-01-31T21:00:22+00:00

I changed the name of my model class to MoCo.pm
It's light & fast Model Component.
http://search.cpan.org/dist/MoCo/ (it's processing now)

Also, I implemented session features today.
You can delay your update/create operation using MoCo's session.

If you call MoCo->start_session once, a session will be started and update/create queries will be delayed until the session will be ended or save method will be called expressly.

# in your web server etc..
MoCo->start_session;

# in your scripts
my $user = Blog::User->retrieve(123);
$user->name('jkondo'); # not saved now. changed in cache.
print $user->name; # 'jkondo'
$user->save; # update db
print Blog::User->retrieve(123)->name; # 'jkondo'

# Or, update queries will be thrown automatically after ending session.
$user->name('jkontan');
Moco->end_session;
print Blog::User->retrieve(123)->name; # 'jkontan'

Class::Moco

jkondo — 2007-01-30T22:33:19+00:00

I uploaded Class::Moco 0.03 today.

Class::Moco is easy to cache model component.
It provides the way to create models like Class::DBI and store objects in cache easily.
http://search.cpan.org/dist/Class-Moco/

I'd like to get feedbacks.

Here is the SYNOPSIS of Class::Moco.

# First, set up your db.
package Blog::DataBase;
use base qw(Class::Moco::DataBase);

__PACKAGE__->dsn('dbi:mysql:dbname=blog');
__PACKAGE__->username('test');
__PACKAGE__->password('test');

# Second, create a base class for all models.
package Blog::TableObject;
use base qw 'Class::Moco'; # Inherit Class::Moco

__PACKAGE__->db_object('Blog::DataBase');

# Third, create your models.
package Blog::User;
use base qw 'Blog::TableObject';

__PACKAGE__->table('user');
__PACKAGE__->primary_keys(['user_id']);
__PACKAGE__->has_many(
entries => 'Blog::Entry',
{ key => 'user_id' }
);
__PACKAGE__->has_many(
bookmarks => 'Blog::Bookmark',
{ key => 'user_id' }
);

package Blog::Entry;
use base qw 'Blog::TableObject';

__PACKAGE__->table('entry');
__PACKAGE__->primary_keys(['entry_id']);
__PACKAGE__->has_a(
user => 'Blog::User',
{ key => 'user_id' }
);
__PACKAGE__->has_many(
bookmarks => 'Blog::Bookmark',
{ key => 'entry_id' }
);

package Blog::Bookmark;
use base qw 'Blog::TableObject';

__PACKAGE__->table('bookmark');
__PACKAGE__->primary_keys(['user_id','entry_id']);
__PACKAGE__->has_a(
user => 'Blog::User',
{ key => 'user_id' }
);
__PACKAGE__->has_a(
entry => 'Blog::Entry',
{ key => 'entry_id' }
);

# Now, You can use some methods same as in Class::DBI.
# And, all objects are stored in cache automatically.
my $user = Blog::User->retrieve(user_id => 123);
print $user->name;
$user->name('jkontan'); # update db immediately
print $user->name; # jkontan

my $user2 = Blog::User->retrieve(user_id => 123);
# $user is same as $user2!

# You can easily get has_many objects array.
my $entries = $user->entries;
my $entries2 = $user->entries;
# $entries is same reference as $entries2!
my $entry = $entries->first; # isa Blog::Entry
print $entry->title; # you can use methods in Entry class.

Blog::Entry->create(
user_id => 123,
title => 'new entry!',
);
# $user->entries will be flushed automatically.
my $entries3 = $user->entries;
# $entries3 isnt $entries!

print ($posts1->[-1] eq $posts2->[-1]); # 1
print ($posts1->[-1] eq $posts3->[-1]); # 1
# It's same instance!

Hello Perl

jkondo — 2007-01-30T05:32:53+00:00

It's my first journal.