view release on metacpan or  search on metacpan

lib/Clearcase/Element.pm  view on Meta::CPAN

      }    # foreach

      $self->{attributes} = %attributes ? \%attributes : ();
    }    # if

    if (/Comments:(.*)EndComments:/) {
      $self->{comments} = $1;
    }    # if

    if (/Create_date:(.*)EndCreate_date:/) {
      $self->{create_date} = $1;
    }    # if

    if (/Group:(.*)EndGroup:/) {
      $self->{group} = $1;
    }    # if

    if (/Labels:(.*)EndLabels:/) {
      my @labels = split " ", $1;
      $self->{labels} = @labels ? \@labels : ();
    }    # if

    if (/Pred:(.*)EndPred:/) {
      $self->{pred} = $1;
    }    # if

    if (/Type:(.*)EndType:/) {
      $self->{type} = $1;
    }    # if

    if (/ObjectKind:(.*)EndObjectKind:/) {
      $self->{objkind} = $1;
    }    # if

    if (/User:(.*)EndUser:/) {
      $self->{user} = $1;
    }    # if

    if (/Xname:(.*)EndXname:/) {
      $self->{xname} = $1;
    }    # if
  }    # foreach

  return;
}    # updateElementInfo

1;

=head2 DEPENDENCIES

=head2 Modules

=over

=back

=head2 INCOMPATABILITIES

None

=head2 BUGS AND LIMITATIONS

There are no known bugs in this module.

Please report problems to Andrew DeFaria <Andrew@DeFaria.com>.

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2020 by Andrew@DeFaria.com

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.38.0 or,
at your option, any later version of Perl 5 you may have available.

=cut