File Coverage

blib/lib/MojoMojo/Controller/JSON.pm

Criterion	Covered	Total	%
statement	18	37	48.6
branch	0	4	0.0
condition	0	3	0.0
subroutine	6	10	60.0
pod	3	3	100.0
total	27	57	47.3

package MojoMojo::Controller::JSON;

use strict;
use parent 'Catalyst::Controller';

=head1 NAME

MojoMojo::Controller::JSON - Various functions that return JSON data.

=head1 SYNOPSIS

This is the Mojo for various functions that return JSON data.

=head1 DESCRIPTION

This controller dispatches various JSON data to AJAX methods in MojoMojo.
These methods will be called indirectly through JavaScript functions.

=head1 ACTIONS

=head2 tagsearch (json/tagsearch)

Backend which handles jQuery autocomplete requests for tag.

=cut

sub tagsearch : Local {
   my ($self, $c) = @_;
   my $query = $c->req->param('q');

   if (defined($query) && length($query)) {
       my $rs = $c->model('DBIC::Tag')->search({
           tag => { -like => $query.'%' },
       }, {
           select =>   [ 'tag' ],
           as =>       [ 'tag' ],
           group_by => [ 'tag' ],
       });

       my @tags;
       while( my $each_rs = $rs->next )
       {
           push(@tags, $each_rs->tag);
       }
       $c->stash->{json}->{tags} = \@tags;
   }
}

=head2 container_set_default_width (json/container_set_default_width)

Store width in session variable I<container_default_width>.

=cut

sub container_set_default_width : Local {
   my ($self, $c, $width) = @_;
   $c->session->{container_default_width} = $width;
   $c->stash->{json}->{width} = $width;
}


=head2 container_maximize_width (json/container_maximize_width)

Set or unset session variable I<maximize_width>, which is used to toggle maximum
width when displaying the page.

=cut

sub container_maximize_width : Local {
   my ($self, $c, $width) = @_;
   if ($width){
     $c->session->{maximize_width}=1;
   } else {
     delete ($c->session->{maximize_width});
   }
   $c->stash->{json}->{width}=$c->session->{container_set_default_width};
}


=head2 auto

Set default view

=cut

sub auto : Private {
   my ($self, $c) = @_;

   $c->stash->{current_view} = 'JSON';
   return 1;
}

1;

=head1 AUTHOR

Sachin Sebastian <sachinjsk at cpan.org>

Robert Litwiniec <linio at wonder.pl>

=head1 LICENSE

This library is free software. You can redistribute it and/or modify it under
the same terms as Perl itself.

=cut