Expense-Tracker

 view release on metacpan or  search on metacpan

lib/ExpenseTracker/Controllers/Base.pm  view on Meta::CPAN

  
  $self->_before_create( @_ );
  
  my $result = $self->app->model
    ->resultset( $self->{resource} )    
    ->create( $self->{_payload} );   

  return $self->render_json( $result->{_column_data} );
}

sub update{
  my $self = shift;
  
  my $result_rs = $self->app->model
    ->resultset( $self->{resource} )
    ->search_rs(
        { id => $self->param('id') },         
    );
  
  return $self->render_not_found if ( scalar( ( $result_rs->all ) ) == 0 );  
  

lib/ExpenseTracker/Controllers/Category.pm  view on Meta::CPAN

      };
   }
  return $self->render_not_found() if scalar @$result == 0 ;
  return $self->render_json( $result );
}


=head update
  sample of overriding a default update method
=cut
sub update{
  my $self = shift;
  
  return $self->render(status => 405,  json => {message => 'You can only update your own categories!!!'} )
    if ( !defined $self->param('id') or !defined $self->app->user or !scalar( $self->app->user->categories( id => $self->param('id') )->all ) );
    
  $self->{_payload}->{user_id} = $self->app->user->id;
  
  return $self->SUPER::update(@_);
}

lib/ExpenseTracker/Controllers/User.pm  view on Meta::CPAN

  
  $obj->{resource} = 'ExpenseTracker::Models::Result::User';

  return $obj;
  
}

=head update
  sample of overriding a default update method
=cut
sub update{
  my $self = shift;
  
  return $self->render(status => 405,  json => {message => 'You can only update your own profile!!!'} )
    if ( !defined $self->param('id') or !defined $self->app->user or $self->param('id') != $self->app->user->id );

  return $self->SUPER::update(@_);
}

sub _before_create{
  my $self = shift;

 view all matches for this distribution
 view release on metacpan -  search on metacpan