| 2 |
## $Id$ |
## $Id$ |
| 3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
| 4 |
## $Log$ |
## $Log$ |
| 5 |
|
## Revision 1.5 2003/02/09 16:24:46 joko |
| 6 |
|
## + pseudo constructor mechanism by calling method 'constructor' on object instantiation |
| 7 |
|
## |
| 8 |
## Revision 1.4 2003/01/22 17:56:49 root |
## Revision 1.4 2003/01/22 17:56:49 root |
| 9 |
## + fix: just use the logger if it's available |
## + fix: just use the logger if it's available |
| 10 |
## |
## |
| 100 |
$self->{__classname} = $classname; |
$self->{__classname} = $classname; |
| 101 |
|
|
| 102 |
$self->_init() if $self->can('_init'); |
$self->_init() if $self->can('_init'); |
| 103 |
|
$self->constructor() if $self->can('constructor'); |
| 104 |
|
|
| 105 |
return $self; |
return $self; |
| 106 |
} |
} |
| 155 |
|
|
| 156 |
# run boot-methods on object |
# run boot-methods on object |
| 157 |
$object->_init() if $object->can('_init'); |
$object->_init() if $object->can('_init'); |
| 158 |
|
$object->constructor() if $object->can('constructor'); |
| 159 |
|
|
| 160 |
return $object; |
return $object; |
| 161 |
} |
} |
Parent Directory
| 
Revision Log
| 
Patch
