Parent Directory
|
Revision Log
|
Patch
| Revision 5991 | Revision 5992 | ||
|---|---|---|---|
| … | … | ||
| 44 | 44 | ||
| 45 | # | 45 | # |
| 46 | # Set flags for the object | 46 | # Set flags for the object |
| 47 | # | 47 | # |
| 48 | sub check { | 48 | sub check { |
| 49 | my $self = shift; | ||
| 50 | my $type = $self->{type}; my $value = $self->{value}; | 49 | my $self = shift; my $value = $self->{value}; |
| 51 | $self->{isZero} = $value->isZero; | 50 | $self->{isZero} = $value->isZero; |
| 52 | $self->{isOne} = $value->isOne; | 51 | $self->{isOne} = $value->isOne; |
| 53 | } | 52 | } |
| 54 | 53 | ||
| 55 | # | 54 | # |
|
||||||||
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |