1 2 3
sub update { shift->delete(条件)->insert(新しい行); }
1 2 3 4 5 6
sub delete { my @rows = shift->select(条件); for my $row (@rows) { $row->delete; } }
Comments
comments powered by Disqus