Guest User

Untitled

a guest
Mar 2nd, 2015
189
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.30 KB | None | 0 0
  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.     )->update(
  14.             items => 800
  15.         }
  16.     );
  17. }
Advertisement
Add Comment
Please, Sign In to add comment