view release on metacpan or  search on metacpan

GO/IO/OBDXML.pm  view on Meta::CPAN

  # Open node.
  if( $metadata ){
    $self->{writer}->startTag('node', 'id'=>$id, 'metadata'=>$metadata);
  }else{
    $self->{writer}->startTag('node', 'id'=>$id);
  }

  # Populate the node with: label, source, and description.
  if( $label ){
    $self->{writer}->startTag('label');
    $self->{writer}->cdata($label);
    $self->{writer}->endTag('label');
  }
  if( $source ){
    $self->{writer}->emptyTag('source', 'about'=>$source);
  }
  if( $description ){
    $self->__draw_sit(-tag=>'description', -label=>$description);
  }

  # Add any aliases.

GO/IO/OBDXML.pm  view on Meta::CPAN

    rearrange([qw(tag label id scope type)], @_);

  my %attr_hash;
  if( $id ){ $attr_hash{'id'} = $id; }
  if( $scope ){ $attr_hash{'scope'} = $scope; }
  if( $type ){ $attr_hash{'type'} = $type; }

  $self->{writer}->startTag($tag,
			    %attr_hash);
  $self->{writer}->startTag('label');
  $self->{writer}->cdata($label);
  $self->{writer}->endTag('label');
  $self->{writer}->endTag($tag);
}


##
sub __draw_xref {
  my $self = shift;
  my ($about, $context) =
    rearrange([qw(about context)], @_);

GO/xsl/oboxml_to_obd_prestore.xsl  view on Meta::CPAN

              <link>
                <predicate_id>
                  <xsl:text>instance_of</xsl:text>
                </predicate_id>
                <object_id>
                  <node>
                    <uid>oban:Annotation</uid>
                  </node>
                </object_id>
              </link>
              <!-- assocdata -->
              <xsl:if test="assocdate">
                <!-- TODO -->
              </xsl:if>
            </node>
          </reiflink_node_id>
        </link>
      </xsl:for-each>
    </node>
    <!-- xsl:value-of select="../proddb"/?? -->
    <!-- xsl:value-of select="prodtype"/?? -->