package db_staff;
use YAML qw (LoadFile);
use DBI;

#
# Constructor
#

sub new {
  my $class = shift;
  $class = ref($class) || $class;
  my $self = {};
  $self->{dbh} = &connect_to_db();
  bless($self, $class);
  return $self;
}

#
# Helper
#

sub connect_to_db {
  my $config = LoadFile('conf/conf.yaml');
  my $dbh = DBI->connect ("DBI:mysql:host=$config->{db_host};database=$config->{db_database}",
  		$config->{db_user}, $config->{db_pass}, {PrintError => 0, RaiseError => 1})
  		or die "Failed to connect via DBI:$!\n";
  return $dbh;
}

# yada yada yada