Yet Another CPAN Grep

Expense-Tracker ( T/TC/TCONST/Expense-Tracker-0.008.tar.gz, TCONST, 2012; MetaCPAN )

Expense-Tracker/lib/ExpenseTracker/Controllers/Category.pm ( view source; MetaCPAN )

ory';

  return $obj;
  
}

sub show{
  my $self = shift;

  return $self->render(status => 405,  json => {message => 'You can only see your own categories!!!'} )
    if ( !defined $self->param('id')

urn $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 => 'Y

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

1;

__END__
=pod
 
=head1 NAME
ExpenseTracker::Controllers::Category - Controll

Expense-Tracker ( T/TC/TCONST/Expense-Tracker-0.008.tar.gz, TCONST, 2012; MetaCPAN )

Expense-Tracker/lib/ExpenseTracker/Controllers/User.pm ( view source; MetaCPAN )

ault 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')

Expense-Tracker ( T/TC/TCONST/Expense-Tracker-0.008.tar.gz, TCONST, 2012; MetaCPAN )

Expense-Tracker/lib/ExpenseTracker/Controllers/Base.pm ( view source; MetaCPAN )

SION = '0.008';
}

use strict;
use warnings;

use Mojo::Base 'Mojolicious::Controller';
use Mojo::JSON;
use Mojo::Util;
use DateTime;

use DBIx::Class::ResultClass::HashRefInflator;
use Lingua::EN::In

>resultset( $self->{resource} )    
    ->create( $self->{_payload} );   

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

sub update{
  my $self = shift;
  
  my $result_rs = $self->app->m

::Class::ResultClass::HashRefInflator');
  my @result = $result_rs->all();
  return $self->render_json( @result );
}

sub list{
  my $self = shift;  
    
  my $result = $self->app->model
    ->result