From a3c28d596b414a9d98d9f60b69d2bb4811fbafc8 Mon Sep 17 00:00:00 2001
From: matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7>
Date: Tue, 12 Aug 2008 18:53:50 +0000
Subject: make widget stuff manglable

---
 script/rclass_back_to_moose.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'script/rclass_back_to_moose.pl')

diff --git a/script/rclass_back_to_moose.pl b/script/rclass_back_to_moose.pl
index d22700d..c34392e 100644
--- a/script/rclass_back_to_moose.pl
+++ b/script/rclass_back_to_moose.pl
@@ -48,9 +48,10 @@ sub sq { # short for 'strip quotes'
 }
 
 sub filtered_body {
+  my $is_widget = m/WidgetClass/;
   local $_ = $_{body};
   s/^  //g;
-  s/^\s*implements *(\S+).*?{/"sub ${\sq $1} {"/ge;
+  s/^\s*implements *(\S+).*?{/"sub ${\sq $1} {"/ge unless $is_widget;
   s/^\s*does/with/g;
   s/^\s*overrides/override/g;
   $_;
-- 
cgit v1.2.3-54-g00ecf