#!/usr/bin/perl -w

package Verein;

use strict;

use MysqlPrefix;
my $msqlprefix = MysqlPrefix::getMysqlCPrefix();
my $msqldeprefix = MysqlPrefix::getMysqlDePrefix();

sub new ($$$) {
  my ($class) = shift;
  my %rangliste;
  my $self = {
    _vereinzps => shift
    _vereinname => shift
    _rangliste => %rangliste;
  };
  bless $self, $class;
  return $self;
}

sub print($) {
	my $self = shift;
	print "  " . $self->{'_liga'} . "/" . $self->{'_runde'} . " " . $self->{'_timestamp'} . " --- " . $self->{'_zps1'} . " (" . $self->{'_dwz1'} . ")-" . $self->{'_zps2'} . " (" . $self->{'_dwz2'} . "): " . $self->{'_ergebnis'} . "\n";
}
1;
