Help for this page

Select Code to Download

Select or download this

  var %record, @records;
  @record{@colNames} = split(',', $line);
  push @records, \%record;

Select or download this

sub total_inventory {
    my $data = shift;
    List::Util::sum(map {$_->{'Inventory'}} @$data);
}