aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Reaction/UI/WidgetClass.pm
diff options
context:
space:
mode:
authormatthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-08-12 18:53:50 +0000
committermatthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>2008-08-12 18:53:50 +0000
commita3c28d596b414a9d98d9f60b69d2bb4811fbafc8 (patch)
tree48f1597bb9ea1e786456cbe852d03868f2e07073 /lib/Reaction/UI/WidgetClass.pm
parent2f6669e1c3ed4be76fff219c0e259d37a99da392 (diff)
downloadreaction-a3c28d596b414a9d98d9f60b69d2bb4811fbafc8.tar.gz
reaction-a3c28d596b414a9d98d9f60b69d2bb4811fbafc8.zip
make widget stuff manglable
Diffstat (limited to 'lib/Reaction/UI/WidgetClass.pm')
-rw-r--r--lib/Reaction/UI/WidgetClass.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/Reaction/UI/WidgetClass.pm b/lib/Reaction/UI/WidgetClass.pm
index b1c88c0..0b3e62f 100644
--- a/lib/Reaction/UI/WidgetClass.pm
+++ b/lib/Reaction/UI/WidgetClass.pm
@@ -95,6 +95,10 @@ override exports_for_package => sub {
qq{$_="${text}"};
} keys %$attrs);
},
+ implements => sub {
+ my ($name, $sub) = @_;
+ $package->meta->add_method($name, $sub);
+ },
);
};
override default_base => sub { ('Reaction::UI::Widget') };