package NCPS::Results;

use strict;
use warnings;
use lib '/var/www/html/lib' ;
use NCPS::UTIL qw/prepareExecute pretty_time getTableColumns input_time convertTime getInfoById / ;
use NCPS::Meets qw/getMeetInfo getEventLayout getPointsParadigm getEventLayout2 /;
use NCPS::Teams qw/getTeamInfo getAthlete/ ;
use NCPS::Events qw/getEventInfo/ ;
....
sub getEventResults {
    my ($event_id,$meet_id,$dbh) = @_;
    my %results = ();
    my $team_list = () ;
    my $sub_meet_having = '' ;
    my $meet_info = getMeetInfo( $meet_id , $dbh ) ;
....