diff options
Diffstat (limited to 'script/rclass_back_to_moose.pl')
-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; $_; |