akatakunのブックマーク - はてなブックマーク

DBIx::Class::Relationship - Inter-table relationships - metacpan.org

NAME DBIx::Class::Relationship - Inter-table relationships SYNOPSIS ## Creating relationships MyApp::Schema::Actor->has_many('actorroles' => 'MyApp::Schema::ActorRole', 'actor'); MyApp::Schema::Role->has_many('actorroles' => 'MyApp::Schema::ActorRole', 'role'); MyApp::Schema::ActorRole->belongs_to('role' => 'MyApp::Schema::Role'); MyApp::Schema::ActorRole->belongs_to('actor' => 'MyApp::Schema::Act

akatakun 2015/06/12

カラムを一意に指定できない場合はforeignとselfを使う。

Perl
DBIx

リンク

Sub::Spy - Sub::Spy is subref wrapper that records arguments, return value, and exception thrown. - metacpan.org

NAME VERSION SYNOPSIS DESCRIPTION FUNCTIONS spy($subref) inspect($spy) INTERFACE of Sub::Spy::Result get_call(i) call_count called called_once called_twice called_thrice called_times(n) args get_args(i) exceptions get_exception(i) threw return_values get_return_value(i) INTERFACE of Sub::Spy::Call args exception threw return_value DEPENDENCIES BUGS SEE ALSO AUTHOR LICENSE AND COPYRIGHT NAME Sub::S

akatakun 2015/06/01

サブルーチンリファレンスをラップして引数と返却値，例外を記録する(呼び出し回数だけならTest::Mock::GuardでもOK)

リンク

DBIx::Class::Manual::Joining - Manual on joining tables with DBIx::Class - metacpan.org

NAME DBIx::Class::Manual::Joining - Manual on joining tables with DBIx::Class DESCRIPTION This document should help you to use DBIx::Class if you are trying to convert your normal SQL queries into DBIx::Class based queries, if you use joins extensively (and also probably if you don't). WHAT ARE JOINS If you ended up here and you don't actually know what joins are yet, then you should likely try th

akatakun 2015/05/19

デフォルトのテーブルエイリアスは"me"やリレーション名、同じリレーション名の場合は番号が振られる。

Perl
DBIx

リンク

Text::CSV_XS - comma-separated values manipulation routines - metacpan.org

NAME Text::CSV_XS - comma-separated values manipulation routines SYNOPSIS # Functional interface use Text::CSV_XS qw( csv ); # Read whole file in memory my $aoa = csv (in => "data.csv"); # as array of array my $aoh = csv (in => "data.csv", headers => "auto"); # as array of hash # Write array of arrays as csv file csv (in => $aoa, out => "file.csv", sep_char => ";"); # Only show lines where "code"