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/ ; use NCPS qw/debug logtime /; use Data::Dumper ; $Data::Dumper::Sortkeys = 1 ; $Data::Dumper::Indent = 1 ; my $debug = 1 ; our (@ISA, @EXPORT_OK); BEGIN { require Exporter; @ISA = qw(Exporter); warn "NCPS::Meets found at $INC{'NCPS/Meets.pm'}\n" ; warn "Is NCPS::Meets a subclass of Exporter? ", NCPS::Meets->isa('Exporter') ? "Yes\n" : "No\n" ; warn "Can NCPS::Meets export getMeetInfo? ", (0 != grep { $_ eq 'getMeetInfo'} @EXPORT_OK) ? "Yes\n" : "No\n" ; @EXPORT_OK = qw/ getTeamIdFromAbbr getMeetResults getTeamResults getResultDetail insertResult insertSplits insertRelay insertLeadoff getEventResults sortEventResults getScores getEventScores setEventScore updateMeetScores setMeetScore getCumulativeScores getPerformancePoints convertMeetToNWayDual scoreEvent addScoresAfterTheFact setResultScoreAndPlace deleteResult getEventIDFromResultRecord getLeadOffSplit updateMeetTimeStamp /; }