UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance - UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance documentation

  UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance->__validate_type($value);

  UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance->__typecheck($value, $msg);

  my $name = $obj_or_package->__model_name;

  $package->__isAbstract;

  my $tangram_schema $obj_or_package->__tangram_schema

  my @val = $obj->attributeLink;
  my $ary_val = $obj->attributeLink;

  $obj->set_attributeLink(@val);

  $obj->add_attributeLink(@val);

  $obj->remove_attributeLink(@val);

  $obj->clear_attributeLink;

  $obj->count_attributeLink;

  my @val = $obj->classifier;
  my $ary_val = $obj->classifier;

  $obj->set_classifier(@val);

  $obj->add_classifier(@val);

  $obj->remove_classifier(@val);

  $obj->clear_classifier;

  $obj->count_classifier;

  my @val = $obj->collaborationInstanceSet_particpatingInstance;
  my $ary_val = $obj->collaborationInstanceSet_particpatingInstance;

  $obj->set_collaborationInstanceSet_particpatingInstance(@val);

  $obj->add_collaborationInstanceSet_particpatingInstance(@val);

  $obj->remove_collaborationInstanceSet_particpatingInstance(@val);

  $obj->clear_collaborationInstanceSet_particpatingInstance;

  $obj->count_collaborationInstanceSet_particpatingInstance;

  my $val = $obj->componentInstance;

  $obj->set_componentInstance($val);

  $obj->add_componentInstance($val);

  $obj->remove_componentInstance($val);

  $obj->clear_componentInstance;

  $obj->count_componentInstance;

  my @val = $obj->linkEnd;
  my $ary_val = $obj->linkEnd;

  $obj->set_linkEnd(@val);

  $obj->add_linkEnd(@val);

  $obj->remove_linkEnd(@val);

  $obj->clear_linkEnd;

  $obj->count_linkEnd;

  my @val = $obj->ownedInstance;
  my $ary_val = $obj->ownedInstance;

  $obj->set_ownedInstance(@val);

  $obj->add_ownedInstance(@val);

  $obj->remove_ownedInstance(@val);

  $obj->clear_ownedInstance;

  $obj->count_ownedInstance;

  my @val = $obj->ownedLink;
  my $ary_val = $obj->ownedLink;

  $obj->set_ownedLink(@val);

  $obj->add_ownedLink(@val);

  $obj->remove_ownedLink(@val);

  $obj->clear_ownedLink;

  $obj->count_ownedLink;

  my $val = $obj->owner;

  $obj->set_owner($val);

  $obj->add_owner($val);

  $obj->remove_owner($val);

  $obj->clear_owner;

  $obj->count_owner;

  my @val = $obj->playedRole;
  my $ary_val = $obj->playedRole;

  $obj->set_playedRole(@val);

  $obj->add_playedRole(@val);

  $obj->remove_playedRole(@val);

  $obj->clear_playedRole;

  $obj->count_playedRole;

  my @val = $obj->slot;
  my $ary_val = $obj->slot;

  $obj->set_slot(@val);

  $obj->add_slot(@val);

  $obj->remove_slot(@val);

  $obj->clear_slot;

  $obj->count_slot;

  my @val = $obj->stimulus_argument;
  my $ary_val = $obj->stimulus_argument;

  $obj->set_stimulus_argument(@val);

  $obj->add_stimulus_argument(@val);

  $obj->remove_stimulus_argument(@val);

  $obj->clear_stimulus_argument;

  $obj->count_stimulus_argument;

  my @val = $obj->stimulus_receiver;
  my $ary_val = $obj->stimulus_receiver;

  $obj->set_stimulus_receiver(@val);

  $obj->add_stimulus_receiver(@val);

  $obj->remove_stimulus_receiver(@val);

  $obj->clear_stimulus_receiver;

  $obj->count_stimulus_receiver;

  my @val = $obj->stimulus_sender;
  my $ary_val = $obj->stimulus_sender;

  $obj->set_stimulus_sender(@val);

  $obj->add_stimulus_sender(@val);

  $obj->remove_stimulus_sender(@val);

  $obj->clear_stimulus_sender;

  $obj->count_stimulus_sender;

# -*- perl -*-
# DO NOT EDIT - This file is generated by UMMF; http://ummf.sourceforge.net 
# From template: $Id: Perl.txt,v 1.77 2006/05/14 01:40:03 kstephens Exp $

package UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance;

#use 5.6.1;
use strict;
use warnings;

#################################################################
# Version
#

our $VERSION = do { my @r = (q{1.5} =~ /\d+/g); sprintf "%d." . "%03d" x $#r, @r };


#################################################################
# Documentation
#

#################################################################
# Dependencies
#





use Carp qw(croak confess);
use Set::Object 1.05;
use Class::Multimethods 1.70;
use Data::Dumper;
use Scalar::Util qw(weaken);
use UMMF::UML_1_5::__ObjectBase qw(:__ummf_array);


#################################################################
# Generalizations
#

use base qw(
  UMMF::UML_1_5::Foundation::Core::ModelElement



);


#################################################################
# Exports
#

our @EXPORT_OK = qw(
);
our %EXPORT_TAGS = ( 'all' => \@EXPORT_OK );





#################################################################
# Validation
#

sub __validate_type($$)
{
  my ($self, $x) = @_;

  no warnings;

  UNIVERSAL::isa($x, 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance')  ;
}

sub __typecheck
{
  my ($self, $x, $msg) = @_;

  confess("typecheck: $msg: type '" . 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance' . ": value '$x'")
    unless __validate_type($self, $x);
}

sub isaInstance { 1 }

sub isaBehavioral_Elements__Common_Behavior__Instance { 1 }


#################################################################
# Introspection
#

sub __model_name { 'Behavioral_Elements::Common_Behavior::Instance' }

sub __isAbstract { 1; }


my $__tangram_schema;

sub __tangram_schema
{
  my ($self) = @_;

  $__tangram_schema ||=
  {
   'classes' =>
   [
     'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance' =>
     {
       'table' => 'Behavioral_Elements__Common_Behavior__Instance',
       'abstract' => 1,
       'slots' => 
       { 
	 # Attributes
	 
	 # Associations
	 	 	       'attributeLink'
       => {
	 'type_impl' => 'iset',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink',

                           'table' => 'Behavioral_Elements__Common_Behavior__Instance__attributeLink', 

                                                               'coll' => 'value',

                                                                               }
      ,
                  	 	       'classifier'
       => {
	 'type_impl' => 'set',
         'class' => 'UMMF::UML_1_5::Foundation::Core::Classifier',

                           'table' => 'Instance_Classifier', 

                                                      'item' => 'classifier', 

                  'coll' => 'instance',

                                                                               }
      ,
                  	 	       'collaborationInstanceSet_particpatingInstance'
       => {
	 'type_impl' => 'set',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Collaborations::CollaborationInstanceSet',

                           'table' => 'Behavioral_Elements__CollaborationInstanceSet_ParticpatingInstance', 

                                                      'item' => 'collaborationInstanceSet_particpatingInstance', 

                  'coll' => 'particpatingInstance',

                                                                               }
      ,
                  	 	       'componentInstance'
       => {
	 'type_impl' => 'ref',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::ComponentInstance',

                  'null' => '1', 

                                    'col' => 'componentInstance', 

                                                                                                                   }
      ,
                  	 	       'linkEnd'
       => {
	 'type_impl' => 'iset',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::LinkEnd',

                           'table' => 'Behavioral_Elements__Common_Behavior__Instance__linkEnd', 

                                                               'coll' => 'instance',

                                                                               }
      ,
                  	 	       'ownedInstance'
       => {
	 'type_impl' => 'iset',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance',

                           'table' => 'Behavioral_Elements__Common_Behavior__Instance__ownedInstance', 

                                                               'coll' => 'owner',

                                             'aggreg' => '1', 

                                           }
      ,
                  	 	       'ownedLink'
       => {
	 'type_impl' => 'iset',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Link',

                           'table' => 'Behavioral_Elements__Common_Behavior__Instance__ownedLink', 

                                                               'coll' => 'owner',

                                             'aggreg' => '1', 

                                           }
      ,
                  	 	       'owner'
       => {
	 'type_impl' => 'ref',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance',

                  'null' => '1', 

                                    'col' => 'owner', 

                                                                                                                   }
      ,
                  	 	       'playedRole'
       => {
	 'type_impl' => 'set',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Collaborations::ClassifierRole',

                           'table' => 'Behavioral_Elements__PlayedRole_ConformingInstance', 

                                                      'item' => 'playedRole', 

                  'coll' => 'conformingInstance',

                                                                               }
      ,
                  	 	       'slot'
       => {
	 'type_impl' => 'iset',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink',

                           'table' => 'Behavioral_Elements__Common_Behavior__Instance__slot', 

                                                               'coll' => 'instance',

                                             'aggreg' => '1', 

                                           }
      ,
                  	 	       'stimulus_argument'
       => {
	 'type_impl' => 'set',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus',

                           'table' => 'Behavioral_Elements__Common_Behavior__Stimulus_Argument', 

                                                      'item' => 'stimulus_argument', 

                  'coll' => 'argument',

                                                                               }
      ,
                  	 	       'stimulus_receiver'
       => {
	 'type_impl' => 'iset',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus',

                           'table' => 'Behavioral_Elements__Common_Behavior__Instance__stimulus_receiver', 

                                                               'coll' => 'receiver',

                                                                               }
      ,
                  	 	       'stimulus_sender'
       => {
	 'type_impl' => 'iset',
         'class' => 'UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus',

                           'table' => 'Behavioral_Elements__Common_Behavior__Instance__stimulus_sender', 

                                                               'coll' => 'sender',

                                                                               }
      ,
                         },
       'bases' => [  'UMMF::UML_1_5::Foundation::Core::ModelElement',  ],
       'sql' => {

       },
     },
   ],

   'sql' =>
   {
    # Note Tangram::Ref::get_exporter() has
    # "UPDATE $table SET $self->{col} = $refid WHERE id = $id",
    # The id_col is hard-coded, 
    # Thus id_col will not work.
    #'id_col' => '__sid',
    #'class_col' => '__stype',
   },
     # 'set_id' => sub { }
     # 'get_id' => sub { }

      
  };
}


#################################################################
# Class Attributes
#


    

#################################################################
# Class Associations
#


    

#################################################################
# Initialization
#

sub ___initialize
{
  my ($self) = @_;

  # Attributes



  # Associations

  # AssociationEnd 
  #  value 1
  #  <--> 
  #  attributeLink 0..* UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink.
    if ( defined $self->{'attributeLink'} ) {
    my $x = $self->{'attributeLink'};
        $self->{'attributeLink'} = Set::Object->new();
        $self->set_attributeLink(@$x);
  }
  
  # AssociationEnd 
  #  instance 0..*
  #  <--> 
  #  classifier 1..* UMMF::UML_1_5::Foundation::Core::Classifier.
    if ( defined $self->{'classifier'} ) {
    my $x = $self->{'classifier'};
        $self->{'classifier'} = Set::Object->new();
        $self->set_classifier(@$x);
  }
  
  # AssociationEnd 
  #  particpatingInstance 1..*
  #  <--> 
  #  collaborationInstanceSet_particpatingInstance 0..* UMMF::UML_1_5::Behavioral_Elements::Collaborations::CollaborationInstanceSet.
    if ( defined $self->{'collaborationInstanceSet_particpatingInstance'} ) {
    my $x = $self->{'collaborationInstanceSet_particpatingInstance'};
        $self->{'collaborationInstanceSet_particpatingInstance'} = Set::Object->new();
        $self->set_collaborationInstanceSet_particpatingInstance(@$x);
  }
  
  # AssociationEnd 
  #  resident 1
  #  <--> 
  #  componentInstance 0..1 UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::ComponentInstance.
    if ( defined $self->{'componentInstance'} ) {
    my $x = $self->{'componentInstance'};
    $self->{'componentInstance'} = undef;
    $self->set_componentInstance($x);
  }
  
  # AssociationEnd 
  #  instance 1
  #  <--> 
  #  linkEnd 0..* UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::LinkEnd.
    if ( defined $self->{'linkEnd'} ) {
    my $x = $self->{'linkEnd'};
        $self->{'linkEnd'} = Set::Object->new();
        $self->set_linkEnd(@$x);
  }
  
  # AssociationEnd 
  #  owner 0..1
  #  <--> 
  #  ownedInstance 0..* UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.
    if ( defined $self->{'ownedInstance'} ) {
    my $x = $self->{'ownedInstance'};
        $self->{'ownedInstance'} = Set::Object->new();
        $self->set_ownedInstance(@$x);
  }
  
  # AssociationEnd 
  #  owner 0..1
  #  <--> 
  #  ownedLink 0..* UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Link.
    if ( defined $self->{'ownedLink'} ) {
    my $x = $self->{'ownedLink'};
        $self->{'ownedLink'} = Set::Object->new();
        $self->set_ownedLink(@$x);
  }
  
  # AssociationEnd 
  #  ownedInstance 0..*
  #  <--> 
  #  owner 0..1 UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.
    if ( defined $self->{'owner'} ) {
    my $x = $self->{'owner'};
    $self->{'owner'} = undef;
    $self->set_owner($x);
  }
  
  # AssociationEnd 
  #  conformingInstance 0..*
  #  <--> 
  #  playedRole 0..* UMMF::UML_1_5::Behavioral_Elements::Collaborations::ClassifierRole.
    if ( defined $self->{'playedRole'} ) {
    my $x = $self->{'playedRole'};
        $self->{'playedRole'} = Set::Object->new();
        $self->set_playedRole(@$x);
  }
  
  # AssociationEnd 
  #  instance 1
  #  <--> 
  #  slot 0..* UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink.
    if ( defined $self->{'slot'} ) {
    my $x = $self->{'slot'};
        $self->{'slot'} = Set::Object->new();
        $self->set_slot(@$x);
  }
  
  # AssociationEnd 
  #  argument 0..*
  #  <--> 
  #  stimulus_argument 0..* UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus.
    if ( defined $self->{'stimulus_argument'} ) {
    my $x = $self->{'stimulus_argument'};
        $self->{'stimulus_argument'} = Set::Object->new();
        $self->set_stimulus_argument(@$x);
  }
  
  # AssociationEnd 
  #  receiver 1
  #  <--> 
  #  stimulus_receiver 0..* UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus.
    if ( defined $self->{'stimulus_receiver'} ) {
    my $x = $self->{'stimulus_receiver'};
        $self->{'stimulus_receiver'} = Set::Object->new();
        $self->set_stimulus_receiver(@$x);
  }
  
  # AssociationEnd 
  #  sender 1
  #  <--> 
  #  stimulus_sender 0..* UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus.
    if ( defined $self->{'stimulus_sender'} ) {
    my $x = $self->{'stimulus_sender'};
        $self->{'stimulus_sender'} = Set::Object->new();
        $self->set_stimulus_sender(@$x);
  }
  

  $self;
}


my $__initialize_use;

sub __initialize
{
  my ($self) = @_;

  # $DB::single = 1;

  unless ( ! $__initialize_use ) {
    $__initialize_use = 1;
    $self->__use('UMMF::UML_1_5::Foundation::Core::Element');
    $self->__use('UMMF::UML_1_5::Foundation::Core::ModelElement');
  }

  $self->UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance::___initialize;
  $self->UMMF::UML_1_5::Foundation::Core::Element::___initialize;
  $self->UMMF::UML_1_5::Foundation::Core::ModelElement::___initialize;

  $self;
}
      

sub __create
{
  my ($self, @args) = @_;

  # $DB::single = 1;
  $self->UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance::___create(@args);
  $self->UMMF::UML_1_5::Foundation::Core::Element::___create();
  $self->UMMF::UML_1_5::Foundation::Core::ModelElement::___create();

  $self;
}




#################################################################
# Attributes
#




#################################################################
# Association
#

#################################################################
# AssociationEnd value <---> attributeLink
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink
# multiplicity = 0..*
# ordering = 

sub attributeLink ($)
{
  my ($self) = @_;

    my $x = $self->{'attributeLink'};

  # confess("Container for attributeLink $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_attributeLink ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_attributeLink;
  $self->add_attributeLink(@val);
}

sub add_attributeLink ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'attributeLink'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.attributeLink");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_value($self) if $old;
    $val->add_value($self)    if $val;

    }
  
  $self;
}

sub remove_attributeLink ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'attributeLink'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.attributeLink");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_value($self) if $old;
    $val->add_value($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_attributeLink ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'attributeLink'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'attributeLink'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_value($self) if $old;
    $val->add_value($self)    if $val;

  ;

  }
  
  $self;
}

sub count_attributeLink ($)
{
  my ($self) = @_;

  my $x = $self->{'attributeLink'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd instance <---> classifier
# type = UMMF::UML_1_5::Foundation::Core::Classifier
# multiplicity = 1..*
# ordering = 

sub classifier ($)
{
  my ($self) = @_;

    my $x = $self->{'classifier'};

  # confess("Container for classifier $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_classifier ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_classifier;
  $self->add_classifier(@val);
}

sub add_classifier ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'classifier'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Foundation::Core::Classifier')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.classifier");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_instance($self) if $old;
    $val->add_instance($self)    if $val;

    }
  
  $self;
}

sub remove_classifier ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'classifier'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Foundation::Core::Classifier')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.classifier");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_instance($self) if $old;
    $val->add_instance($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_classifier ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'classifier'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'classifier'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_instance($self) if $old;
    $val->add_instance($self)    if $val;

  ;

  }
  
  $self;
}

sub count_classifier ($)
{
  my ($self) = @_;

  my $x = $self->{'classifier'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd particpatingInstance <---> collaborationInstanceSet_particpatingInstance
# type = UMMF::UML_1_5::Behavioral_Elements::Collaborations::CollaborationInstanceSet
# multiplicity = 0..*
# ordering = 

sub collaborationInstanceSet_particpatingInstance ($)
{
  my ($self) = @_;

    my $x = $self->{'collaborationInstanceSet_particpatingInstance'};

  # confess("Container for collaborationInstanceSet_particpatingInstance $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_collaborationInstanceSet_particpatingInstance ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_collaborationInstanceSet_particpatingInstance;
  $self->add_collaborationInstanceSet_particpatingInstance(@val);
}

sub add_collaborationInstanceSet_particpatingInstance ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'collaborationInstanceSet_particpatingInstance'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Collaborations::CollaborationInstanceSet')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.collaborationInstanceSet_particpatingInstance");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_particpatingInstance($self) if $old;
    $val->add_particpatingInstance($self)    if $val;

    }
  
  $self;
}

sub remove_collaborationInstanceSet_particpatingInstance ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'collaborationInstanceSet_particpatingInstance'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Collaborations::CollaborationInstanceSet')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.collaborationInstanceSet_particpatingInstance");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_particpatingInstance($self) if $old;
    $val->add_particpatingInstance($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_collaborationInstanceSet_particpatingInstance ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'collaborationInstanceSet_particpatingInstance'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'collaborationInstanceSet_particpatingInstance'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_particpatingInstance($self) if $old;
    $val->add_particpatingInstance($self)    if $val;

  ;

  }
  
  $self;
}

sub count_collaborationInstanceSet_particpatingInstance ($)
{
  my ($self) = @_;

  my $x = $self->{'collaborationInstanceSet_particpatingInstance'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd resident <---> componentInstance
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::ComponentInstance
# multiplicity = 0..1
# ordering = 

sub componentInstance ($)
{
  my ($self) = @_;
		  
  $self->{'componentInstance'};
}

sub set_componentInstance ($$)
{
  my ($self, $val) = @_;
		  
  no warnings; # Use of uninitialized value in string ne at ...
		  
  my $old;
  if ( ($old = $self->{'componentInstance'}) ne $val ) { # Recursion lock

    if ( defined $val ) { $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::ComponentInstance')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.componentInstance") }

    # Recursion lock
        $self->{'componentInstance'} = $val
    ;

    # Remove and add associations with other ends.
        
    $old->remove_resident($self) if $old;
    $val->add_resident($self)    if $val;

    }
		  
  $self;
}

sub add_componentInstance ($$)
{
  my ($self, $val) = @_;

  no warnings; # Use of uninitialized value in string ne at ...

  my $old;
  if ( ($old = $self->{'componentInstance'}) ne $val ) { # Recursion lock
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::ComponentInstance')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.componentInstance");
      
    # confess("UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance::componentInstance: too many")
    # if defined $self->{'componentInstance'};

    # Recursion lock
        $self->{'componentInstance'} = $val
    ;

    # Remove and add associations with other ends.
        
    $old->remove_resident($self) if $old;
    $val->add_resident($self)    if $val;

  
  }

  $self;
}

sub remove_componentInstance ($$)
{
  my ($self, $val) = @_;

  no warnings; # Use of uninitialized value in string ne at ...

  my $old;
  if ( ($old = $self->{'componentInstance'}) eq $val ) { # Recursion lock
    $val = $self->{'componentInstance'} = undef;         # Recursion lock

    # Remove and add associations with other ends.
        
    $old->remove_resident($self) if $old;
    $val->add_resident($self)    if $val;

  
  }
}

sub clear_componentInstance ($@)
{
  my ($self) = @_;

  my $old;
  if ( defined ($old = $self->{'componentInstance'}) ) { # Recursion lock
    my $val = $self->{'componentInstance'} = undef;      # Recursion lock

    # Remove and add associations with other ends.
        
    $old->remove_resident($self) if $old;
    $val->add_resident($self)    if $val;

    }

  $self;
}

sub count_componentInstance ($)
{
  my ($self) = @_;

  my $x = $self->{'componentInstance'};

  defined $x ? 1 : 0;
}

#################################################################
# AssociationEnd instance <---> linkEnd
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::LinkEnd
# multiplicity = 0..*
# ordering = 

sub linkEnd ($)
{
  my ($self) = @_;

    my $x = $self->{'linkEnd'};

  # confess("Container for linkEnd $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_linkEnd ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_linkEnd;
  $self->add_linkEnd(@val);
}

sub add_linkEnd ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'linkEnd'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::LinkEnd')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.linkEnd");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_instance($self) if $old;
    $val->add_instance($self)    if $val;

    }
  
  $self;
}

sub remove_linkEnd ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'linkEnd'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::LinkEnd')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.linkEnd");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_instance($self) if $old;
    $val->add_instance($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_linkEnd ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'linkEnd'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'linkEnd'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_instance($self) if $old;
    $val->add_instance($self)    if $val;

  ;

  }
  
  $self;
}

sub count_linkEnd ($)
{
  my ($self) = @_;

  my $x = $self->{'linkEnd'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd owner <---> ownedInstance
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance
# multiplicity = 0..*
# ordering = 

sub ownedInstance ($)
{
  my ($self) = @_;

    my $x = $self->{'ownedInstance'};

  # confess("Container for ownedInstance $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_ownedInstance ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_ownedInstance;
  $self->add_ownedInstance(@val);
}

sub add_ownedInstance ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'ownedInstance'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.ownedInstance");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_owner($self) if $old;
    $val->add_owner($self)    if $val;

    }
  
  $self;
}

sub remove_ownedInstance ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'ownedInstance'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.ownedInstance");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_owner($self) if $old;
    $val->add_owner($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_ownedInstance ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'ownedInstance'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'ownedInstance'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_owner($self) if $old;
    $val->add_owner($self)    if $val;

  ;

  }
  
  $self;
}

sub count_ownedInstance ($)
{
  my ($self) = @_;

  my $x = $self->{'ownedInstance'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd owner <---> ownedLink
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Link
# multiplicity = 0..*
# ordering = 

sub ownedLink ($)
{
  my ($self) = @_;

    my $x = $self->{'ownedLink'};

  # confess("Container for ownedLink $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_ownedLink ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_ownedLink;
  $self->add_ownedLink(@val);
}

sub add_ownedLink ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'ownedLink'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Link')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.ownedLink");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_owner($self) if $old;
    $val->add_owner($self)    if $val;

    }
  
  $self;
}

sub remove_ownedLink ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'ownedLink'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Link')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.ownedLink");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_owner($self) if $old;
    $val->add_owner($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_ownedLink ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'ownedLink'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'ownedLink'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_owner($self) if $old;
    $val->add_owner($self)    if $val;

  ;

  }
  
  $self;
}

sub count_ownedLink ($)
{
  my ($self) = @_;

  my $x = $self->{'ownedLink'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd ownedInstance <---> owner
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance
# multiplicity = 0..1
# ordering = 

sub owner ($)
{
  my ($self) = @_;
		  
  $self->{'owner'};
}

sub set_owner ($$)
{
  my ($self, $val) = @_;
		  
  no warnings; # Use of uninitialized value in string ne at ...
		  
  my $old;
  if ( ($old = $self->{'owner'}) ne $val ) { # Recursion lock

    if ( defined $val ) { $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.owner") }

    # Recursion lock
        $self->{'owner'} = $val
    ;

    # Remove and add associations with other ends.
        
    $old->remove_ownedInstance($self) if $old;
    $val->add_ownedInstance($self)    if $val;

    }
		  
  $self;
}

sub add_owner ($$)
{
  my ($self, $val) = @_;

  no warnings; # Use of uninitialized value in string ne at ...

  my $old;
  if ( ($old = $self->{'owner'}) ne $val ) { # Recursion lock
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.owner");
      
    # confess("UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance::owner: too many")
    # if defined $self->{'owner'};

    # Recursion lock
        $self->{'owner'} = $val
    ;

    # Remove and add associations with other ends.
        
    $old->remove_ownedInstance($self) if $old;
    $val->add_ownedInstance($self)    if $val;

  
  }

  $self;
}

sub remove_owner ($$)
{
  my ($self, $val) = @_;

  no warnings; # Use of uninitialized value in string ne at ...

  my $old;
  if ( ($old = $self->{'owner'}) eq $val ) { # Recursion lock
    $val = $self->{'owner'} = undef;         # Recursion lock

    # Remove and add associations with other ends.
        
    $old->remove_ownedInstance($self) if $old;
    $val->add_ownedInstance($self)    if $val;

  
  }
}

sub clear_owner ($@)
{
  my ($self) = @_;

  my $old;
  if ( defined ($old = $self->{'owner'}) ) { # Recursion lock
    my $val = $self->{'owner'} = undef;      # Recursion lock

    # Remove and add associations with other ends.
        
    $old->remove_ownedInstance($self) if $old;
    $val->add_ownedInstance($self)    if $val;

    }

  $self;
}

sub count_owner ($)
{
  my ($self) = @_;

  my $x = $self->{'owner'};

  defined $x ? 1 : 0;
}

#################################################################
# AssociationEnd conformingInstance <---> playedRole
# type = UMMF::UML_1_5::Behavioral_Elements::Collaborations::ClassifierRole
# multiplicity = 0..*
# ordering = 

sub playedRole ($)
{
  my ($self) = @_;

    my $x = $self->{'playedRole'};

  # confess("Container for playedRole $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_playedRole ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_playedRole;
  $self->add_playedRole(@val);
}

sub add_playedRole ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'playedRole'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Collaborations::ClassifierRole')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.playedRole");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_conformingInstance($self) if $old;
    $val->add_conformingInstance($self)    if $val;

    }
  
  $self;
}

sub remove_playedRole ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'playedRole'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Collaborations::ClassifierRole')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.playedRole");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_conformingInstance($self) if $old;
    $val->add_conformingInstance($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_playedRole ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'playedRole'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'playedRole'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_conformingInstance($self) if $old;
    $val->add_conformingInstance($self)    if $val;

  ;

  }
  
  $self;
}

sub count_playedRole ($)
{
  my ($self) = @_;

  my $x = $self->{'playedRole'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd instance <---> slot
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink
# multiplicity = 0..*
# ordering = 

sub slot ($)
{
  my ($self) = @_;

    my $x = $self->{'slot'};

  # confess("Container for slot $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_slot ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_slot;
  $self->add_slot(@val);
}

sub add_slot ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'slot'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.slot");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_instance($self) if $old;
    $val->add_instance($self)    if $val;

    }
  
  $self;
}

sub remove_slot ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'slot'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::AttributeLink')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.slot");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_instance($self) if $old;
    $val->add_instance($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_slot ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'slot'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'slot'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_instance($self) if $old;
    $val->add_instance($self)    if $val;

  ;

  }
  
  $self;
}

sub count_slot ($)
{
  my ($self) = @_;

  my $x = $self->{'slot'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd argument <---> stimulus_argument
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus
# multiplicity = 0..*
# ordering = 

sub stimulus_argument ($)
{
  my ($self) = @_;

    my $x = $self->{'stimulus_argument'};

  # confess("Container for stimulus_argument $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_stimulus_argument ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_stimulus_argument;
  $self->add_stimulus_argument(@val);
}

sub add_stimulus_argument ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'stimulus_argument'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.stimulus_argument");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_argument($self) if $old;
    $val->add_argument($self)    if $val;

    }
  
  $self;
}

sub remove_stimulus_argument ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'stimulus_argument'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.stimulus_argument");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_argument($self) if $old;
    $val->add_argument($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_stimulus_argument ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'stimulus_argument'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'stimulus_argument'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_argument($self) if $old;
    $val->add_argument($self)    if $val;

  ;

  }
  
  $self;
}

sub count_stimulus_argument ($)
{
  my ($self) = @_;

  my $x = $self->{'stimulus_argument'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd receiver <---> stimulus_receiver
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus
# multiplicity = 0..*
# ordering = 

sub stimulus_receiver ($)
{
  my ($self) = @_;

    my $x = $self->{'stimulus_receiver'};

  # confess("Container for stimulus_receiver $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_stimulus_receiver ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_stimulus_receiver;
  $self->add_stimulus_receiver(@val);
}

sub add_stimulus_receiver ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'stimulus_receiver'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.stimulus_receiver");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_receiver($self) if $old;
    $val->add_receiver($self)    if $val;

    }
  
  $self;
}

sub remove_stimulus_receiver ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'stimulus_receiver'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.stimulus_receiver");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_receiver($self) if $old;
    $val->add_receiver($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_stimulus_receiver ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'stimulus_receiver'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'stimulus_receiver'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_receiver($self) if $old;
    $val->add_receiver($self)    if $val;

  ;

  }
  
  $self;
}

sub count_stimulus_receiver ($)
{
  my ($self) = @_;

  my $x = $self->{'stimulus_receiver'};

    defined $x ? $x->size : 0;
  }

#################################################################
# AssociationEnd sender <---> stimulus_sender
# type = UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus
# multiplicity = 0..*
# ordering = 

sub stimulus_sender ($)
{
  my ($self) = @_;

    my $x = $self->{'stimulus_sender'};

  # confess("Container for stimulus_sender $x is not a blessed ref: " . Data::Dumper->new([ $self ], [qw($self)])->Maxdepth(2)->Dump()) if $x && ref($x) !~ /::/;
 
  wantarray ? ($x ? $x->members() : ()) : [ $x ? $x->members() : () ];
  
}

sub set_stimulus_sender ($@)
{
  my ($self, @val) = @_;
  
  $self->clear_stimulus_sender;
  $self->add_stimulus_sender(@val);
}

sub add_stimulus_sender ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'stimulus_sender'} ||= Set::Object->new();
    my $old; # Place holder for other MACRO.
  
  for my $val ( @val ) {
    # Recursion lock
        next if $x->includes($val);
        $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.stimulus_sender");

    # Recursion lock
        $x->insert($val);
    # weaken?
    
    # Remove and add associations with other ends.
        
    $old->remove_sender($self) if $old;
    $val->add_sender($self)    if $val;

    }
  
  $self;
}

sub remove_stimulus_sender ($@)
{
  my ($self, @val) = @_;
  
    my $x = $self->{'stimulus_sender'} ||= Set::Object->new();
  
  for my $old ( @val ) {
    # Recursion lock
        next unless $x->includes($old);
    
    my $val = $old;
      
    $self->__use('UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Stimulus')->__typecheck($val, "UMMF::UML_1_5::Behavioral_Elements::Common_Behavior::Instance.stimulus_sender");

    # Recursion lock
        $x->remove($old);
    
    $val = undef;

    # Remove associations with other ends.

        
    $old->remove_sender($self) if $old;
    $val->add_sender($self)    if $val;

  ;

  }
  
  $self;
}

sub clear_stimulus_sender ($) 
{
  my ($self) = @_;
  
    my $x = $self->{'stimulus_sender'} ||= Set::Object->new();
  
  my $val; # Place holder for other MACRO.
  
    $self->{'stimulus_sender'} = Set::Object->new(); # Recursion lock
  for my $old ( $x->members() ) {     # Recursion lock
  
    # Remove associations with other ends.

        
    $old->remove_sender($self) if $old;
    $val->add_sender($self)    if $val;

  ;

  }
  
  $self;
}

sub count_stimulus_sender ($)
{
  my ($self) = @_;

  my $x = $self->{'stimulus_sender'};

    defined $x ? $x->size : 0;
  }







# End of Class Instance

############################################################################

1; # is true!

############################################################################

### Keep these comments at end of file: kstephens@users.sourceforge.net 2003/04/06 ###
### Local Variables: ###
### mode:perl ###
### perl-indent-level:2 ###
### perl-continued-statement-offset:0 ###
### perl-brace-offset:0 ###
### perl-label-offset:0 ###
### End: ###