extract subroutine

[rhebus]

Brief description here: ​http://www.eigenstate.net/perl_tools/#Extract_SubroutineMethod

related to #525 and #8

Could use Devel::Refactor to help with this

[rhebus]

I've attached a patch which provides rudimentary extract subroutine functionality. Problems remaining:

• The new subroutine always goes to the end of the file. Is there a more sensible place to put it? (Answer: yes.)
• There is no attempt to check for errors if Devel::Refactor::extract_subroutine fails. These errors can end as comments in code.

Having said that, when it works, it works great :)

[Sewi]

Patch applied.

It should be changed to insert the new sub before the 1; if there is nothing than =pod.*=cut behind it.

rhebus, fix it, if you want, otherwise please close the ticket.

[rhebus]

I'm submitting a new ticket for that, since I'm not sure how to achieve it yet.