SHOW:
|
|
- or go back to the newest paste.
| 1 | package MyApp::Plugin::ListDatabase::List; | |
| 2 | ||
| 3 | sub new {
| |
| 4 | my ($class, %attrs) = @_; | |
| 5 | bless \%attrs, $class; | |
| 6 | } | |
| 7 | ||
| 8 | sub update {
| |
| 9 | my $self = shift; | |
| 10 | $self->db->resultset('List')->search(
| |
| 11 | {
| |
| 12 | items => 700 | |
| 13 | } | |
| 14 | )->update( | |
| 15 | {
| |
| 16 | items => 800 | |
| 17 | } | |
| 18 | ); | |
| 19 | } |
