package Tapper::Schema::TestrunDB;
our $AUTHORITY = 'cpan:TAPPER';
use 5.010;
use strict;
use warnings;
# Only increment this version here on schema changes.
# For everything else increment Tapper/Schema.pm.
our $VERSION = '4.001043';
# avoid these warnings
# Subroutine initialize redefined at /2home/ss5/perl510/lib/site_perl/5.10.0/Class/C3.pm line 70.
# Subroutine uninitialize redefined at /2home/ss5/perl510/lib/site_perl/5.10.0/Class/C3.pm line 88.
# Subroutine reinitialize redefined at /2home/ss5/perl510/lib/site_perl/5.10.0/Class/C3.pm line 101.
# by forcing correct load order.
use Class::C3;
use MRO::Compat;
use parent 'DBIx::Class::Schema';
our $NULL = 'NULL';
our $DELIM = ' | ';
# __PACKAGE__->load_components(qw/+DBIx::Class::Schema::Versioned/);
# __PACKAGE__->upgrade_directory('./lib/auto/Tapper/Schema/');
# __PACKAGE__->backup_directory('./lib/auto/Tapper/Schema/');
__PACKAGE__->load_namespaces;
sub backup
{
#say STDERR "(TODO: Implement backup method.)";
1;
}
sub _yaml_ok {
my ($condition) = @_;
require YAML::Syck;
my @res;
eval {
@res = YAML::Syck::Load($condition);
};
return $@;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Tapper::Schema::TestrunDB
=head2 _yaml_ok
Check whether given string is valid yaml.
@param string - yaml
@return success - undef
@return error - error string
=head1 AUTHORS
=over 4
=item *
AMD OSRC Tapper Team <tapper@amd64.org>
=item *
Tapper Team <tapper-ops@amazon.com>
=back
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2017 by Advanced Micro Devices, Inc..
This is free software, licensed under:
The (two-clause) FreeBSD License
=cut