オブジェクトにアクセスするには

• プロシージャ関数に渡される引数によるアクセス
  
  プロシージャ関数に渡される引数によるアクセスは、 イベントプロシージャが貼られているクライアントオブジェクト にアクセスする場合に利用します。
  
  
• オブジェクト管理を利用したアクセス
  
  イベントプロシージャが貼られているクライアントオブジェクト 以外の他のオブジェクトにアクセスする場合に利用します。
  
  
• 外部変数による直接アクセス
  
  イベントプロシージャが貼られているクライアントオブジェクト 以外の他のオブジェクトにアクセスする場合に利用します。 イベントプロシージャの移植性が低下します。

プロシージャ関数に渡される引数によるアクセス

#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
use mwt;

sub event_procedure {
  my ($object) = @_;
  #オブジェクトへアクセス
  $object->setProperty("labelString","HELLO WORLD"); 
}
1;

オブジェクト管理を利用したアクセス

#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
use mwt;

sub event_procedure {
  my ($object) = @_;

  # オブジェクト管理によるインスタンスの取得(その１)
  $obj = mwt::WSGIappObjectList()->getInstance(
               "WSCvlabel",       # ラベルクラス
               "newvlab_001");    # newvlab_001 という名称

  # 得られたラベルに対するアクセス
  $obj->setProperty("labelString","HELLO WORLD"); 

  # オブジェクト管理によるインスタンスの取得(その２)
  $obj2 = mwt::WSGIappObjectList()->getInstance(
               "WSCbase",      # どのクラスかを特定しない
               "newvlab_002"); # newvlab_002 という名称

  # 得られたラベルに対するアクセス
  $obj2->setProperty("labelString","HELLO WORLD"); 
}
1;

外部変数による直接アクセス

#----------------------------------------------------------
#Function for the event procedure
#----------------------------------------------------------
user mwt;

sub event_procedure {
  my ($object) = @_;
  # newvlab_001 に対して直接アクセス
  $newvlab_001->setProperty("labelString","HELLO WORLD"); 
}
1;