package Unicode;

use myConfig qw($cfg);
use strict;
use DBI;

# Konstruktor, DB-Connect
sub new{
	my $class = shift;
	my $self = {
		DBH => undef,
	};
	bless $self, $class;
	my $dsn = "DBI:mysql:database=$cfg->{mysql}->{base};host=$cfg->{mysql}->{host};port=$cfg->{mysql}->{port}";    
	eval{
		$self->{DBH} = DBI->connect_cached(
			$dsn, $cfg->{mysql}->{user}, $cfg->{mysql}->{pass}, {RaiseError => 1, PrintError => 0}
		);
	};
	return $self;
}

# hier wird nur das Objekt zurückgegeben
sub TIEHASH{
	my $class = shift;
	my $self = $class->new;
	if($@){ return }
	else{ return $self}
}

# erst hier werden die Daten aus der mySQL-Tabelle geholt
sub FETCH{
	my $self = shift;
	my $key = shift; # Codepoint decimal, cpd
	my $q = q(SELECT cpd, name FROM unicode WHERE cpd=?);
	my $href = {};
	eval{
		my $sth = $self->{DBH}->prepare($q);
		$sth->execute($key);
		$href = $sth->fetchall_hashref('cpd');
	};
	if($@){ return "Fehler: $@" }
	else{ return $href->{$key}->{name} }
}
1;#########################################################################


package main;
tie(my %h, 'Unicode') or die $@;
print $h{8364}; # EURO SIGN