Class::DBI
HASHのリファでもよかったのね。
oooo orz
sub find_or_create { my $class = shift; my $hash = ref $_[0] eq "HASH" ? shift: {@_}; my ($exists) = $class->search($hash); return defined($exists) ? $exists : $class->insert($hash); }
http://search.cpan.org/~tmtm/Class-DBI-v3.0.16/lib/Class/DBI.pm