aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/Meta
diff options
context:
space:
mode:
authorgroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2007-10-02 20:05:44 +0000
committergroditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2007-10-02 20:05:44 +0000
commite22de1011c40b639cc4b6e5586a9e0defe855285 (patch)
tree67e007d3eee18254d0f9e3111acaedafd80e80dd /lib/Reaction/Meta
parent6ab43711ccd779eedce107001b300043e2056a0c (diff)
downloadreaction-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.pm3
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.