Select Code to Download

#! perl -slw
use strict;
...
a->b->c->d->e
a->b->c->d->g->h->c->j->k
a->b->c->j->k

use enum qw[ CODE GRAPH START PATH SEEN ];
sub _pathsFrom2 {
...


sub pathsFrom(&@) { _pathsFrom2( @_, [], {} ) }