# - - - calculate_aggr_infos.pm package Calculate::AggrInfos; # Responsibility : calculate the aggregate information for one experiment. sub calculate_aggr_infos_for_experiment { my $experiment = shift; # 1. Initialize Readers for each data file my $hash_data_reader_of_file = initialize_data_file_readers_for_experiment($experiment); # 2. Calculate aggregate information my $hash_aggr_infos = calculate_aggr_infos_with_readers( $hash_data_reader_of_file ); return $hash_aggr_infos; } # - - - end sub calculate_aggr_infos_for_experiment()