Advertisement
Guest User

Untitled

a guest
Mar 2nd, 2015
33
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement