June 27, 2007 | Component-Focused Testing | Back Next |
my $singleton; BEGIN { $singleton = { steps => [], data => Parrot::Configure::Data->new, options => Parrot::Configure::Data->new, }; bless $singleton, "Parrot::Configure"; }
sub new { my $class = shift; return $singleton; }
continued...
Home Last TOC | Copyright © 2007 James E Keenan | Back Next |