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 | } |