The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
NAME
    Xymon::DB::Schema - Group of Schemas for Xymon

SYNOPSIS
      use Xymon::DB::Schema;

DESCRIPTION
    Load DBIx::Class table classes for Xymon Database application.

USAGE
            use Xymon::DB::Schema;
        
            my $db = Xymon::DB::Schema->connect( 
                            "DBI:Sybase:server=testsql2005;database=Hobbit", "hobbit", "hobpass",
                            {PrintError => 0}
                            );
        
            if($db) {

                    my $hosts = $db->resultset('host')->search(
                            {
                                    hobbit => 1,
                                    recordstatus => 'Complete',
                            },
                            {
                                    'join'  => 'LuLocation',
                                    '+select' => 'LuLocation.region',
                                    '+as' => 'region',
                                     order_by => 'hostname ASC' 
                            },
                    )->hashref_pk;
            } else {
            die "Unable for connect to server $DBI::errstr";
            }
        
            print $hosts->{$hostname}->{location} . "\n";
        
    See DBIx::Class for more details on queries.

BUGS
SUPPORT
AUTHOR
        David Peters
        CPAN ID: DAVIDP
        davidp@electronf.com
        http://www.electronf.com

COPYRIGHT
    This program is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.

    The full text of the license can be found in the LICENSE file included
    with this module.

SEE ALSO
    DBIx::Class, perl(1).