DBIx::Class: migrate to use_namespaces

This gives us a place to put helper functions that act on entire
tables, not just individual records.

This should be a backwards compatible change, except in places we're
manually using result class names.

src/lib/Hydra/Schema/Result/Projects.pm

@@ -0,0 +1,282 @@
+use utf8;
+package Hydra::Schema::Result::Projects;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+=head1 NAME
+
+Hydra::Schema::Result::Projects
+
+=cut
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+=head1 COMPONENTS LOADED
+
+=over 4
+
+=item * L<Hydra::Component::ToJSON>
+
+=back
+
+=cut
+
+__PACKAGE__->load_components("+Hydra::Component::ToJSON");
+
+=head1 TABLE: C<projects>
+
+=cut
+
+__PACKAGE__->table("projects");
+
+=head1 ACCESSORS
+
+=head2 name
+
+  data_type: 'text'
+  is_nullable: 0
+
+=head2 displayname
+
+  data_type: 'text'
+  is_nullable: 0
+
+=head2 description
+
+  data_type: 'text'
+  is_nullable: 1
+
+=head2 enabled
+
+  data_type: 'integer'
+  default_value: 1
+  is_nullable: 0
+
+=head2 hidden
+
+  data_type: 'integer'
+  default_value: 0
+  is_nullable: 0
+
+=head2 owner
+
+  data_type: 'text'
+  is_foreign_key: 1
+  is_nullable: 0
+
+=head2 homepage
+
+  data_type: 'text'
+  is_nullable: 1
+
+=head2 declfile
+
+  data_type: 'text'
+  is_nullable: 1
+
+=head2 decltype
+
+  data_type: 'text'
+  is_nullable: 1
+
+=head2 declvalue
+
+  data_type: 'text'
+  is_nullable: 1
+
+=cut
+
+__PACKAGE__->add_columns(
+  "name",
+  { data_type => "text", is_nullable => 0 },
+  "displayname",
+  { data_type => "text", is_nullable => 0 },
+  "description",
+  { data_type => "text", is_nullable => 1 },
+  "enabled",
+  { data_type => "integer", default_value => 1, is_nullable => 0 },
+  "hidden",
+  { data_type => "integer", default_value => 0, is_nullable => 0 },
+  "owner",
+  { data_type => "text", is_foreign_key => 1, is_nullable => 0 },
+  "homepage",
+  { data_type => "text", is_nullable => 1 },
+  "declfile",
+  { data_type => "text", is_nullable => 1 },
+  "decltype",
+  { data_type => "text", is_nullable => 1 },
+  "declvalue",
+  { data_type => "text", is_nullable => 1 },
+);
+
+=head1 PRIMARY KEY
+
+=over 4
+
+=item * L</name>
+
+=back
+
+=cut
+
+__PACKAGE__->set_primary_key("name");
+
+=head1 RELATIONS
+
+=head2 buildmetrics
+
+Type: has_many
+
+Related object: L<Hydra::Schema::Result::BuildMetrics>
+
+=cut
+
+__PACKAGE__->has_many(
+  "buildmetrics",
+  "Hydra::Schema::Result::BuildMetrics",
+  { "foreign.project" => "self.name" },
+  undef,
+);
+
+=head2 builds
+
+Type: has_many
+
+Related object: L<Hydra::Schema::Result::Builds>
+
+=cut
+
+__PACKAGE__->has_many(
+  "builds",
+  "Hydra::Schema::Result::Builds",
+  { "foreign.project" => "self.name" },
+  undef,
+);
+
+=head2 jobsetrenames
+
+Type: has_many
+
+Related object: L<Hydra::Schema::Result::JobsetRenames>
+
+=cut
+
+__PACKAGE__->has_many(
+  "jobsetrenames",
+  "Hydra::Schema::Result::JobsetRenames",
+  { "foreign.project" => "self.name" },
+  undef,
+);
+
+=head2 jobsets
+
+Type: has_many
+
+Related object: L<Hydra::Schema::Result::Jobsets>
+
+=cut
+
+__PACKAGE__->has_many(
+  "jobsets",
+  "Hydra::Schema::Result::Jobsets",
+  { "foreign.project" => "self.name" },
+  undef,
+);
+
+=head2 owner
+
+Type: belongs_to
+
+Related object: L<Hydra::Schema::Result::Users>
+
+=cut
+
+__PACKAGE__->belongs_to(
+  "owner",
+  "Hydra::Schema::Result::Users",
+  { username => "owner" },
+  { is_deferrable => 0, on_delete => "NO ACTION", on_update => "CASCADE" },
+);
+
+=head2 projectmembers
+
+Type: has_many
+
+Related object: L<Hydra::Schema::Result::ProjectMembers>
+
+=cut
+
+__PACKAGE__->has_many(
+  "projectmembers",
+  "Hydra::Schema::Result::ProjectMembers",
+  { "foreign.project" => "self.name" },
+  undef,
+);
+
+=head2 starredjobs
+
+Type: has_many
+
+Related object: L<Hydra::Schema::Result::StarredJobs>
+
+=cut
+
+__PACKAGE__->has_many(
+  "starredjobs",
+  "Hydra::Schema::Result::StarredJobs",
+  { "foreign.project" => "self.name" },
+  undef,
+);
+
+=head2 usernames
+
+Type: many_to_many
+
+Composing rels: L</projectmembers> -> username
+
+=cut
+
+__PACKAGE__->many_to_many("usernames", "projectmembers", "username");
+
+
+# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-08-26 12:02:36
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:nKVZ8ZNCZQQ52zbpDAaoQQ
+
+use JSON;
+
+sub as_json {
+    my $self = shift;
+
+    my %json = (
+        # string_columns
+        "name" => $self->get_column("name") // "",
+        "displayname" => $self->get_column("displayname") // "",
+        "description" => $self->get_column("description") // "",
+        "homepage" => $self->get_column("homepage") // "",
+        "owner" => $self->get_column("owner") // "",
+
+        # boolean_columns
+        "enabled" => $self->get_column("enabled") ? JSON::true : JSON::false,
+        "hidden" => $self->get_column("hidden") ? JSON::true : JSON::false,
+
+        "jobsets" => [ map { $_->name } $self->jobsets ]
+    );
+
+    my %decl = (
+        "declarative" => {
+            "file" => $self->get_column("declfile") // "",
+            "type" => $self->get_column("decltype") // "",
+            "value" => $self->get_column("declvalue") // ""
+        }
+    );
+
+    %json = (%json, %decl) if !($decl{"declarative"}->{"file"} eq "");
+
+    return \%json;
+}
+
+1;