2006-04-27から1日間の記事一覧
勉強会用でつくったので。 package DBIx::Class::NotFound; use strict; use warnings; use base qw/DBIx::Class/; our $VERSION = '0.01'; __PACKAGE__->load_components(qw/ResultSetManager/); sub found_or_notfound : ResultSet { my $self = shift; my…