File Coverage

blib/lib/Tapper/Schema/TestrunDB.pm

Criterion	Covered	Total	%
statement	17	24	70.8
branch			n/a
condition			n/a
subroutine	6	8	75.0
pod	0	1	0.0
total	23	33	69.7

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 <[e-mail]>

=item *

Tapper Team <[e-mail]>

=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