20 |
#my @affix_add; |
#my @affix_add; |
21 |
#my @affix_sub; |
#my @affix_sub; |
22 |
|
|
23 |
my $debug=1; |
my $debug=0; |
24 |
|
|
25 |
# stub |
# stub |
26 |
|
|
29 |
my $self = {}; |
my $self = {}; |
30 |
bless($self, $class); |
bless($self, $class); |
31 |
$self->{ARGS} = {@_}; |
$self->{ARGS} = {@_}; |
32 |
|
$debug = $self->{ARGS}->{DEBUG}; |
33 |
$self ? return $self : return undef; |
$self ? return $self : return undef; |
34 |
} |
} |
35 |
|
|
157 |
|
|
158 |
The new() constructor (without parameters) create container for new |
The new() constructor (without parameters) create container for new |
159 |
language. |
language. |
160 |
|
Only parametar it supports is DEBUG which turns on (some) debugging |
161 |
|
output. |
162 |
|
|
163 |
=item load_affix |
=item load_affix |
164 |
|
|