Test post with mtcolorer/colorer

Here’s a block of multiline code…


foreach my $person (@people) {
my %tags = (Supervised => ‘pi’,
# Supervised_by => ‘student’,
Worked_with => ‘collaborated’);
foreach my $tag (keys %tags) {
# next if ($limit_to && $tag ne $limit_to);
if (my @data = $person->$tag) {
my $year = $lineage->discover_year_appeared($person);
next if ($year eq ‘unknown’ && $lineage->purge_unknowns);

# Save a node for this primary person
$lineage->save_node($person); # use different glyphs/colors for supervisors

And here is some code that is s/\/argh\/\/toothpicks\/g inline.

Leave a Reply