view release on metacpan or  search on metacpan

lib/Perl5/CoreSmokeDB/Schema/Result/Report.pm  view on Meta::CPAN

  "plevel",
  {
    data_type     => "text",
    default_value => \"git_describe_as_plevel(git_describe)",
    is_nullable   => 1,
    original      => { data_type => "varchar" },
  },
);

=head1 PRIMARY KEY

=over 4

=item * L</id>

=back

=cut

__PACKAGE__->set_primary_key("id");

=head1 UNIQUE CONSTRAINTS

=head2 C<report_git_id_smoke_date_duration_hostname_architecture_key>

=over 4

=item * L</git_id>

=item * L</smoke_date>

=item * L</duration>

=item * L</hostname>

=item * L</architecture>

=back

=cut

__PACKAGE__->add_unique_constraint(
  "report_git_id_smoke_date_duration_hostname_architecture_key",
  ["git_id", "smoke_date", "duration", "hostname", "architecture"],
);

=head1 RELATIONS

=head2 configs

Type: has_many

Related object: L<Perl5::CoreSmokeDB::Schema::Result::Config>

=cut

__PACKAGE__->has_many(
  "configs",
  "Perl5::CoreSmokeDB::Schema::Result::Config",
  { "foreign.report_id" => "self.id" },
  { cascade_copy => 0, cascade_delete => 0 },
);

=head2 sconfig

Type: belongs_to

Related object: L<Perl5::CoreSmokeDB::Schema::Result::SmokeConfig>

=cut

__PACKAGE__->belongs_to(
  "sconfig",
  "Perl5::CoreSmokeDB::Schema::Result::SmokeConfig",
  { id => "sconfig_id" },
  {
    is_deferrable => 0,
    join_type     => "LEFT",
    on_delete     => "NO ACTION",
    on_update     => "NO ACTION",
  },
);


# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-09-06 09:15:22
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:YSwjDKOFBQjshqCpkN9sCA

##### Problem with DBIx::Class/DBIx::Class::Schema::Loader
# it cannot ADD COLUMN plevel varchar GENERATED ALWAYS AS (...) STORED
# so remove the default_value for the ORM and put it back with SQL in
# Test::Smoke::Gateway::Schema::deploy()
#
my $_plevel_column = __PACKAGE__->column_info('plevel');
__PACKAGE__->remove_column('plevel');
delete($_plevel_column->{default_value});
__PACKAGE__->add_column('plevel', $_plevel_column);

sub arch_os_version_key {
    my $self = shift;
    return join( "##", $self->architecture, $self->osname, $self->osversion, $self->hostname);
}

sub arch_os_version_label {
    my $self = shift;
    return join( " - ", $self->architecture, $self->osname, $self->osversion, $self->hostname);
}

sub arch_os_version_pair {
    my $self = shift;
    return {value => $self->arch_os_version_key, label => $self->arch_os_version_label};
}

my %io_env_order_map = (
    minitest => 1,
    stdio    => 2,
    perlio   => 3,
    locale   => 4,
);
my $max_io_envs = scalar(keys %io_env_order_map);

sub title {