diff options
author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-10-02 20:05:44 +0000 |
---|---|---|
committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-10-02 20:05:44 +0000 |
commit | e22de1011c40b639cc4b6e5586a9e0defe855285 (patch) | |
tree | 67e007d3eee18254d0f9e3111acaedafd80e80dd /lib/Reaction/Meta | |
parent | 6ab43711ccd779eedce107001b300043e2056a0c (diff) | |
download | reaction-e22de1011c40b639cc4b6e5586a9e0defe855285.tar.gz reaction-e22de1011c40b639cc4b6e5586a9e0defe855285.zip |
unstable switchover before template renaming. added searchpath for widgets trying to make list view work. added gridview
Diffstat (limited to 'lib/Reaction/Meta')
-rw-r--r-- | lib/Reaction/Meta/Attribute.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Reaction/Meta/Attribute.pm b/lib/Reaction/Meta/Attribute.pm index 38035d5..9f444df 100644 --- a/lib/Reaction/Meta/Attribute.pm +++ b/lib/Reaction/Meta/Attribute.pm @@ -30,6 +30,9 @@ around _process_options => sub { $options->{default} = $fail ? sub { confess "${name} must be provided before calling reader" } : sub{ shift->$builder }; + + $options->{clearer} ||= ($name =~ /^_/) ? "_clear${name}" : "clear_${name}" + if $build; } #we are using this everywhere so might as well move it here. |