| … | |
… | |
| 35 | }, $class; |
35 | }, $class; |
| 36 | $c->{canBeInterval} = 1 if ($value->class eq 'Point' && $type->{length} == 2); |
36 | $c->{canBeInterval} = 1 if ($value->class eq 'Point' && $type->{length} == 2); |
| 37 | ## check for isZero (method of $value?) |
37 | ## check for isZero (method of $value?) |
| 38 | ## (hack for now) |
38 | ## (hack for now) |
| 39 | $c->{isZero} = 1 if $type->{name} eq 'Number' && $value == 0; |
39 | $c->{isZero} = 1 if $type->{name} eq 'Number' && $value == 0; |
| 40 | $c->{isOne} = 1 if $type->{name} eq 'Number' && $value == 1; |
40 | $c->{isOne} = 1 if $type->{name} eq 'Number' && $value eq 1; |
| 41 | return $c; |
41 | return $c; |
| 42 | } |
42 | } |
| 43 | |
43 | |
| 44 | # |
44 | # |
| 45 | # Return the Value.pm object |
45 | # Return the Value.pm object |