DBIx::Class::GeomColumns

必要になったので作りました。

• CPAN
• CodeRepos

DBIx::Classで、PostGISやmysqlのGEOMETRY型のカラムに対し、読み込み時はAsText関数、書き込み時はGeomFromText関数を通して、WKT形式でアクセスできるようにしたものです。

DBIx::Class::UTF8Columnsを参考にしたので、こんな感じで使います。

    package POI;
    __PACKAGE__->load_components(qw/GeomColumns Core/);
    # GEOMETRY型のカラムを指定します。SRID指定の場合はハッシュリファレンスで渡します。
    # 無指定の場合は4326(WGS84)です。
    __PACKAGE__->utf8_columns('wgs84_col',{'tokyo_col' => 4301});

    # 以下では、AsText(wgs84_col)の結果を返します。
    $poi->wgs84_col;

    # Create/Update時は、GeomFromText($data,$srid)の値を書き込みます。
    # 下の例は、GeomFromText('POINT(135 35)',4301)で更新されます。
    $poi->tokyo_col('POINT(135 35)');
    $poi->update;

とりあえず作ってはみたものの、DBIx::Class自体まだまだ判ってないので変な実装してるような気がします。
もっとよい方法があれば突っ込んでいただければ幸いです。

また、読み込みも書き込みもSQLの関数通すので、Testの書き方が思いつかず書いてません。
SQL発行時のエラーは無視して、発行されるSQLだけトラップしてテストするようなやり方があれば何とかなりそうですが...。