lib/SGN/Controller/SiteFeatures.pm

   1 package SGN::Controller::SiteFeatures;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 use SGN::View::Mason::CrossReference 'resolve_xref_component';
   6
   7 BEGIN {extends 'Catalyst::Controller::REST'; }
   8
   9 __PACKAGE__->config(
  10     default   => 'text/html',
  11     stash_key => 'rest',
  12     map       => {
  13         'text/html' => [ 'View', 'BareMason' ],
  14     },
  15    );
  16
  17 =head1 NAME
  18
  19 SGN::Controller::SiteFeatures - Catalyst Controller
  20
  21 =head1 DESCRIPTION
  22
  23 Catalyst controller for web services involving site features and
  24 xrefs.
  25
  26 =head1 PUBLIC ACTIONS
  27
  28 =head2 feature_xrefs
  29
  30 Public path: /api/v1/feature_xrefs
  31
  32 Web service interface to C<$c-E<gt>feature_xrefs>.
  33
  34 =cut
  35
  36 sub feature_xrefs :Path('/api/v1/feature_xrefs') :Args(0) {
  37     my ( $self, $c ) = @_;
  38
  39     no warnings 'uninitialized';
  40
  41     my $type = $c->req->param('render_type') || 'link';
  42
  43     my $args = {};
  44     if( my @exclude = split /,/, $c->req->param('exclude') ) {
  45         $args->{exclude} = \@exclude;
  46     }
  47
  48     my $xrefs = [ map $c->feature_xrefs( $_, $args ), grep /\S/, $c->req->param('q') ];
  49     $c->stash(
  50         template => "/sitefeatures/mixed/xref_set/$type.mas",
  51
  52         xrefs => $xrefs,
  53         rest  => $xrefs,
  54        );
  55 }
  56
  57 =head1 AUTHOR
  58
  59 Robert Buels
  60
  61 =head1 LICENSE
  62
  63 This library is free software. You can redistribute it and/or modify
  64 it under the same terms as Perl itself.
  65
  66 =cut
  67
  68 __PACKAGE__->meta->make_immutable;
  69