use warnings;
use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use CGI::Session;
package CGI::Session::Mine {
use parent 'CGI::Session';
sub cookie {
my $self = shift;
my $cookie = $self->SUPER::cookie(@_);
$cookie->secure(1);
$cookie->samesite('Lax');
return $cookie;
}
}
my $CS = CGI::Session::Mine->new();
$CS->expire('+1d');
print $CS->header();
print 'Test'
.'Test
';
####
use warnings;
use strict;
use CGI;
use CGI::Carp 'fatalsToBrowser';
use CGI::Session;
use Class::Method::Modifiers 'around';
around 'CGI::Session::cookie' => sub {
my ($orig, $self) = (shift, shift);
$orig->($self, @_, secure=>1, samesite=>'Lax');
};
my $CS = CGI::Session->new();
$CS->expire('+1d');
print $CS->header();
print 'Test'
.'Test
';