package YourApp::Spieler;

use strict;
use warnings;

use My::DB;

my $schema = My::DB->connect( ... );

sub new{
  my ($class,$name) = @_;

  my $self = bless {}, $class;

  _init();

  $self;
}

sub run {
    print "der Spieler rennt";
}

sub kick {
    print "der Spieler passt zu einem Mitspieler"; 

    if( $is_goal ){
        my $info = $self->_info;
        $info->update( Anzahl_Tore => $info->Anzahl_Tore + 1 );
    }
}

sub _info {
    my ($self) = @_;

    unless( $self->{info} ){
        my $info = $schema->resultset( 'Spieler' )->search( Name => $name );
        $self->{info} = $info;
    }

    $self->{info}
}

1;