| 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;
    }
$conf is same Parrot::Configure object in both Configure.pl and Parrot::Configure::Step
| Home Last TOC | Copyright © 2007 James E Keenan | Back Next |