MEAD

Summary

Methods description

Methods code

    my $summary = shift;
    my $destination = shift ||\* STDOUT;

    unless (ref $destination) {
	unless (open TEMP, ">$destination") {
	    die "Unable to open $destination for writing.\n";
	}
	$destination =\* TEMP;
    }

    foreach my $order (sort {$a <=> $b} (keys %{$summary})) {
        my $sentref = $$summary{$order};
        print $destination "[$order]  $$sentref{'TEXT'}\n";
    }

General documentation