comparison Lib/IMPL/Object/EventSource.pm @ 49:16ada169ca75

migrating to the Eclipse IDE
author wizard@linux-odin.local
date Fri, 26 Feb 2010 10:49:21 +0300
parents 94d47b388442
children 4267a2ac3d46
comparison
equal deleted inserted replaced
48:1c3c3e63a314 49:16ada169ca75
81 private _direct property NextId => prop_all; 81 private _direct property NextId => prop_all;
82 } 82 }
83 83
84 sub CTOR { 84 sub CTOR {
85 my $this = shift; 85 my $this = shift;
86 $this->SUPER::CTOR();
87 86
88 $this->{$Handlers} = {}; 87 $this->{$Handlers} = {};
89 $this->{$Name} = shift; 88 $this->{$Name} = shift;
90 $this->{$Next} = shift; 89 $this->{$Next} = shift;
91 $this->{$NextId} = 1; 90 $this->{$NextId} = 1;