Sub::AutoでAUTOLOADを隠蔽 - dann@webdev - dann's portal が面白そうだったのでDBIC::ResultSetにfindBy〜を生やしてみた。 perldoc見ても$selfがどこに入ってくるのか分からんかったけど、@_に関数名のマッチが入って、その次に来るみたい。 #!/usr/bin/perl use strict; use warnings; package DBIx::Class::ResultSet; use Sub::Auto; autosub /^findBy(\w+)$/ { my ( $method, $self, $value ) = @_; $method = lc $method; return undef unless grep /^$method$/, $self->result_source->columns; $s