view release on metacpan or  search on metacpan

t/10-otheractions.t  view on Meta::CPAN

sub resource_lookup {1}
sub create          { shift->catchall('create') }
sub delete          { shift->catchall('delete') }
sub list            {
    my $c = shift;
    my $query =  $c->stash('query');
    return $c->$query if ($query);
    $c->catchall('list')
}
sub read            { shift->catchall('read') }
sub update          { shift->catchall('update') }

sub name {
  my $self = shift;
  my $name = $self->stash->{controller};
  $name =~ s,^.*\-,,;
  return $name;
}

sub render_json {
	my $c		= shift;