lib/CXGN/Cookie.pm

   1 package CXGN::Cookie;
   2 use strict;
   3 use warnings;
   4
   5 use CatalystX::GlobalContext '$c';
   6
   7 =head1 CXGN::Cookie
   8
   9  Functions for using CXGN cookies.  Deprecated.
  10
  11 =cut
  12
  13 sub get_cookie {
  14     my $cookie = $c->req->cookie(shift)
  15         or return;
  16     return $cookie->value;
  17 }
  18
  19 sub set_cookie {
  20     my ( $name, $value ) = @_;
  21     $value = '' unless defined $value;
  22     $c->response->cookies->{$name} = {
  23         value => $value,
  24         samesite => 'Strict'
  25     };
  26 }
  27
  28 1;