-sub BUILD {
- my ($set) = @_;
-
- my @kids = $set->kids;
- return unless @kids >= 2;
-
- my $links = $set->_links;
- my $conn = $set->connector;
-
- my $prev = $kids[0];
- for my $i (1 .. $#kids) {
- my $next = $_[$i];
- my $link = $set->$conn($i - 1, $prev, $next);
- confess('Invalid connector') unless defined $link and not blessed $link;
- push @$links, $link;
- $prev = $next;
- }
-}
-