diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-12 18:53:50 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-08-12 18:53:50 +0000 |
commit | a3c28d596b414a9d98d9f60b69d2bb4811fbafc8 (patch) | |
tree | 48f1597bb9ea1e786456cbe852d03868f2e07073 /script | |
parent | 2f6669e1c3ed4be76fff219c0e259d37a99da392 (diff) | |
download | reaction-a3c28d596b414a9d98d9f60b69d2bb4811fbafc8.tar.gz reaction-a3c28d596b414a9d98d9f60b69d2bb4811fbafc8.zip |
make widget stuff manglable
Diffstat (limited to 'script')
-rw-r--r-- | script/rclass_back_to_moose.pl | 3 |
1 files changed, 2 insertions, 1 deletions
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; $_; |