sub get_id {
  my $self = shift;
  my $node = shift;  # $node->isa( 'Node' )
  return
    ref $node && $node->can( 'id' ) ? $node->id
                                    : $self->id_fxn->( $node );
}