• Step 1: Learn to write tests in Perl and create a separate test for every function that you plan to modify. Make certain that all tests pass 100% before proceeding. [ Contextual note: I add this because, when making changes to production code, you can avoid the fear of breaking things by having comprehensive testing available to run automated regression tests. Once you get used to doing this you will lose your fear of refactoring production code.]
• Step 2: Change the offending function names by appending something to them. So sub print_l becomes sub print_l_old. Change the 'print' statements to 'return' statements. Rerun your tests. Everything should break (that's okay for now).
• Step 3: Create new functions with the old function names and have them call the old functions like this:

  use strict;
  
  sub print_l_old {
    return qq|the world is a great place|;
  }
  sub print_l{
      print print_l_old() . qq| to be.|;   
  }
  print_l();
  [download]

The idea of a function is normally to return something. In other languages there is a way to notify the user whether or not a function was supposed to be used to return anything (like declaring it void, etc.). There is not anything like this in Perl (that I know of) so my best practice is to almost always write functions to return something, even if that something is only undef. Whatever solution you come up with, I would add it to your coding standards. I added this section and all this help about refactoring because I think the code you have posted probably needs to be rewritten. There are good, safe ways to do that using Perl utilities.

Update: Oops, I forgot to mention that your tests will break if you add new stuff like  qq| to be.|. The right approach should be to just call the old functions in the new without appending anything and rerun your tests. They should all pass. Then rewrite your tests to match your next version's changes. You should be using a version control system, so you should be able to easily differentiate versions and tag releases along with associated tests.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.