Samnostatna datova struktura pro sockety

lib/CF/Schema/Result/Socket.pm

+package CF::Schema::Result::Socket;
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+our $VERSION = 1;
+
+__PACKAGE__->table('sockets');
+
+__PACKAGE__->add_columns(
+    qw(
+        id
+        ip
+        user_id
+        keeaplive
+    ),
+);
+
+__PACKAGE__->set_primary_key('id');
+
+1;

lib/CF/Schema/Result/Socket_view.pm

+package CF::Schema::Result::Socket_view;
+
+use strict;
+use warnings;
+
+use base 'CF::Schema::Result::Socket';
+
+our $VERSION = 1;
+
+__PACKAGE__->table('sockets_view');
+
+__PACKAGE__->add_columns(
+    qw(
+        is_member
+        is_alive
+    ),
+);
+
+1;

sql/5/up.sql

+alter table "users" add "roles" text;
+
+create table "sockets" (
+    "id" varchar(64),
+    "ip" inet,
+    "user_id" integer,
+    "keepalive" timestamp,
+    primary key("id")
+);
+create index "sockets_user_id_idx" on "sockets"("user_id");
+create index "sockets_keepalive_idx" on "sockets"("keepalive");
+
+create view "sockets_view" as
+    select "sockets".*,
+    ("sockets"."keepalive"+'100 s'::interval) > now() as "is_alive",
+    "users"."roles" like '%member%' as "is_member"
+from "sockets"
+left join "users" on ("sockets"."user_id" = "users"."id");