We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 2f8636a commit a090730Copy full SHA for a090730
lib/perl5/Puma/Cookie/Session.pm
@@ -62,13 +62,6 @@ sub save {
62
$self->serialize($file);
63
}
64
65
-
66
67
68
69
70
71
72
# === Method Extended from Puma::Object::Serial =============================
73
# --- make a clone of self and remove all data we don't want to serialize ---
74
sub serial {
@@ -78,19 +71,3 @@ sub serial {
78
79
80
1;
81
82
-__END__
83
84
-sub construct {
85
- my ($self, %args) = @_;
86
87
- $args{UID} = $args{Server}->getCookie($args{UseCookie})->value()
88
- if exists $args{Server} && defined $args{Server} &&
89
- exists $args{UseCookie} && defined $args{UseCookie};
90
91
- %args = $self->SUPER::construct(%args);
92
93
- $self->load();
94
95
- return %args;
96
-}
0 commit comments