perlmeditation
agianni
<readmore>
<table width="100%"><tr>
<td align="left">
</td>
<td align="center"><i><a href="?node_id=3989&n0=0&BIT=&BIS=+&BH=1&HIT=refactoring+perl&HIS=+&xa=0&a=agianni&nf=0&yr=&mo=&dy=&xs=0&M=1&BET=&BES=+&HET=&HES=+&xr=0&re=N&xpa=0&pa=&go=Search&as_user=530995">Series Index</a></i></td>
<td align="right">
<i>[node://623470|#2 - Inline Method>]</i>
</td>
</td>
</tr></table>
</readmore>
<blockquote><p>You have a code fragment that can be grouped together</p>
<p><i>Turn the fragment into a method whose name explains the purpose of the method</i></p>
<p>(<a href="http://www.amazon.com/Refactoring-Improving-Design-Existing-Code/dp/0201485672/">Fowler</a>, p.110)</p></blockquote>
<p>
Fowler's first refactoring pattern is probably the most intuitive and the one I use 90% of the time when I'm refactoring. That's part of the reason I'm going through these patterns, because I know there are plenty of other useful ones out there (there are 72 in the book after all).
</p>
<readmore>
<p>
Here is Fowler's example in Perl code:
</p>
<code>
sub print_owing{
my $self = shift;
my $e = $self->{_orders}->elements();
my $outstanding = 0.0;
# print banner
print "**************************\n";
print "***** Customer Owes ******\n";
print "**************************\n";
# calculate outstanding
while ( $e->has_more_elements() ){
my $each = $e->next_element();
$outstanding += $each->get_amount();
}
# print details
print 'name: ', $self->{_name}, "\n";
print "amount: $outstanding\n";
}
</code>
<p>
becomes:
</p>
<code>
sub print_owing{
my $self = shift;
$self->print_banner();
my $outstanding = $self->get_outstanding();
$self->print_details( $outstanding );
}
sub print_banner{
my $self = shift;
# print banner
print "**************************\n";
print "***** Customer Owes ******\n";
print "**************************\n";
}
sub print_details{
my $self = shift;
my $outstanding = shift;
print 'name: ', $self->{_name}, "\n";
print "amount: $outstanding\n";
}
sub get_outstanding{
my $self = shift;
my $e = $self->{_orders}->elements();
my $result = 0.0;
# calculate outstanding
while ( $e->has_more_elements() ){
my $each = $e->next_element();
$result += $each->get_amount();
}
return $result;
}
</code>
<p>
Fowler outlines the intricacies through example in three steps but I won't go into that much detail here because I think it's pretty straight forward. You should really buy <a href="http://www.amazon.com/Refactoring-Improving-Design-Existing-Code/dp/0201485672/">the book</a> if you're interested. <a href="http://www.newkenmore.com/perl/refactoring.tar.gz">The code with tests</a> include the steps in the refactoring process so you can see the whole thing in Perl.
</p>
<p>
Instead, I'd like to discuss how I've written the unit tests for the example, as testing is an important part of the refactoring process and writing tests for the refactoring patterns will likely require some decent understanding of Perl unit testing methodologies.
</p>
<p>
There are three non-standard modules that I use in the tests for this code: <a href="http://search.cpan.org/~simonflk/Test-MockModule/lib/Test/MockModule.pm">Test::MockModule</a>, <a href="http://search.cpan.org/~chromatic/Test-MockObject/lib/Test/MockObject.pm">Test::MockObject</a> and <a href="http://search.cpan.org/~ssoriche/Test-Output/lib/Test/Output.pm">Test::Output</a>. The first two are very useful for working with tests for incomplete modules / classes -- which is the case here -- or situations where you don't want to do a great deal of setup of environmental factors just to test a single method / subroutine. Test::Output is very useful to testing code that generates STDOUT or STDERR as this code does. In order to run these tests, you'll need these three modules. I highly recommend <a href="http://langworth.com/">Ian Langworth</a> and <a href="http://perlmonks.org/?sourceid=Mozilla-search&node=chromatic&go_button=Search">chromatic</a>'s <a href="http://www.amazon.com/Perl-Testing-Developers-Notebook/dp/0596100922/">Perl Testing, A Developer's Notebook</a> if you're not comfortable with writing and maintaining tests.
</p>
<p>
In the case of the test for Refactoring::ExtractMethod::*, I use Test::MockModule to mock up a <code>new</code> method rather than include it in the class itself. I also used Test::MockObject to put together a quick and dirty object for the _orders object variable. For the purpose of this example it may be overkill, but this is generally how I like to write my tests: isolate the test to the functionality of the method we are testing. Of course this will come back to bite me in the very next refactoring example, but we'll get to that later :)
</p>
<p>
For now I'll be keeping one tarball of all of the code and I'll update it when I have additional code to share. I'm not sure that's a good long term option, and I'm open to suggestions -- I might CPAN it if I can maintain momentum here.
</p>
</readmore>
<p>
I welcome comments and conversation on all aspects of this example: implementation of the example in Perl, testing methodology, tactics for maintaining this series of posts, what have you.
</p>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-530995">
<code>
perl -e 'split//,q{john hurl, pest caretaker}and(map{print @_[$_]}(join(q{},map{sprintf(qq{%010u},$_)}(2**2*307*4993,5*101*641*5261,7*59*79*36997,13*17*71*45131,3**2*67*89*167*181))=~/\d{2}/g));'
</code>
</div></div>