client/p.pl:12:use Player;client/p.pl:23:for qw(Player Place Place::Tile UI);client/p.pl:410:    # create a Player objectclient/p.pl:411:    my $player = Player->new(client/lib/UI.pm:207:    my @players = sort {$a->username cmp $b->username} grep {(ref $_) eq 'Player'} values %{$self->place->objects};client/lib/UI.pm:208:    my @objects = sort {$a->id cmp $b->id} grep {(ref $_) ne 'Player'} values %{$self->place->objects};server/lib/CuteGirls/Server.pm:10:use Player;server/lib/CuteGirls/Server.pm:221:Create a new Player object, insert it into the map, set up a regen tick, etc.server/lib/CuteGirls/Server.pm:245:    $place->objects->{$id} = Player->new(lib/Place/Tile.pm:40:    $.vasru = 0 if (ref $obj eq 'Player');lib/Place/Tile.pm:45:    $.vasru = 1 if (ref $obj eq 'Player');lib/Place/Tile.pm:54:    if (ref $top eq 'Player') {lib/Place.pm:12:use Player;lib/Place.pm:22:    Player => sub {Player->new(@_)},lib/Player.pm:1:package Player;lib/Player.pm:26:    $hash{class} = 'Player';