Re: Refactoring Perl 1 - Extract Method

[rhesa]

in reply to Refactoring Perl #1 - Extract Method

Thanks, agianni, looks good.

A little while ago I stumbled on a perl script to perform this refactoring. I found it through Piers Cawley's blog in this post. The script itself is written by Jesse Vincent, and can be found here. Read the comments on Piers' post for further instructions. I've hooked it into my vimrc, and it's proven to be a nice tool.

[agianni]

I haven't had a chance to try the script out, but I'd like to get myself set up to use some of these tools that provide refactoring capacity. I have briefly looked at Komodo and Eclipse but my development environment doesn't make them particularly easy to use and I haven't been able to take the time to get myself setup with them. I've been using emacs for years and just haven't seen the value in switching just yet.

I would definitely be interested to see other's comments on refactoring tools for Perl. I know Devel::Refactor was built specifically for use within Eclipse. Any others out there?

[FunkyMonk]

After reading this thread, I hooked up a small Devel::Refactor script to emacs at the weekend. It works, but I haven't used it seriously, and I'm not convinced it provides a huge productivity leap

Anyway, here's how...

in your .emacs:


(defun refactor-extract ()
  "Change region into a subroutine"
  (interactive)

  (shell-command-on-region (point) (mark) "./refactor-extract" t)
  )

and some Perl in refactor-extract:


#!/usr/bin/perl

### Rewrite code block as a subroutine
#   This is mostly intended to be used through emacs'
#   shell-command-on-region
#
#(defun refactor-extract ()
#  "Change region in to a subroutine"
#  (interactive)
#  (shell-command-on-region (point) (mark) "./refactor-extract" t))
#
#Based on a Perlmonks node: http://www.perlmonks.org/?node_id=622772

use strict;
use warnings FATAL => 'all';
use Devel::Refactor;

my $code = join '', <>;
my $name = "refactored_" . sprintf( "%04d", rand() * 10000 );
print join "\n", Devel::Refactor->new->extract_subroutine( $name, $cod
+e );

use Disclaimer::Std;
This was a quick hack, quickly hacked. Use at your peril.