#!/usr/bin/perl

use warnings;
use strict;

package DB::DBI;
use base 'Class::DBI';
__PACKAGE__->connection('dbi:mysql:carmen', 'root', '');

package DB::http_response;
use base 'DB::DBI';
__PACKAGE__->table('http_response');
__PACKAGE__->columns(All =>qw/http_response_id
                                http_response
                                time_request
                                time_http_response
                                time_interval
                                sid
                                uri
                        /);

package DB::test_run;
use base 'DB::DBI';
__PACKAGE__->table('test_run');
__PACKAGE__->columns(All =>qw/test_run_id
                                name
                      /);