| # | Line 28 | Line 28 | sub new { | |
|---|---|---|
| 28 | my $class=shift; | |
| 29 | $self={}; | |
| 30 | bless $self, $class; | |
| 31 | + | $self->{max}=0; |
| 32 | $self->setlevel(0); | |
| 33 | $self->{messages}=(); | |
| 34 | return $self; | |
| # | Line 36 | Line 37 | sub new { | |
| 37 | sub setlevel { | |
| 38 | my $self=shift; | |
| 39 | ||
| 40 | < | @_?$self->{aslevel}=shift |
| 41 | < | :$self->{aslevel}++; |
| 40 | > | if ( @_ ) { |
| 41 | > | $self->{aslevel}=shift |
| 42 | > | } |
| 43 | > | else { |
| 44 | > | $self->{aslevel}++; |
| 45 | > | } |
| 46 | if ( $self->{aslevel} > $self->{max} ) { $self->{max}++ } | |
| 47 | } | |
| 48 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |