Help for this page
(defun refactor-extract ()
"Change region into a subroutine"
(shell-command-on-region (point) (mark) "./refactor-extract" t)
my $code = join '', <>;
my $name = "refactored_" . sprintf( "%04d", rand() * 10000 );
print join "\n", Devel::Refactor->new->extract_subroutine( $name, $cod
There is no Extraterrestrial life
There aren't any suitably capable Extraterrestrials
Interstellar travel is too difficult
We're too uncool / not worth the trouble
What do you mean they haven't visited?
Results (561 votes). Check out past polls.