- Timestamp:
- Feb 23, 2013, 5:44:23 PM (12 years ago)
- Branches:
- master, release-1.10
- Children:
- 6a8b519
- Parents:
- 4419d3d
- git-author:
- David Benjamin <davidben@mit.edu> (02/22/13 14:12:23)
- git-committer:
- David Benjamin <davidben@mit.edu> (02/23/13 17:44:23)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
t/variable.t
r4419d3d r4953c44 62 62 get_tostring => sub { "value is " . $value }, 63 63 set_fromstring => sub { 64 return -1unless $_[0] =~ /^...?$/;64 die "Too long" unless $_[0] =~ /^...?$/; 65 65 $value = $_[0]; 66 return 0;67 66 }, 68 67 takes_on_off => 1
Note: See TracChangeset
for help on using the changeset viewer.