1# Copyright (C) 2001-2003, Parrot Foundation. 2 3=head1 NAME 4 5t/configure/testlib/init/alpha.pm - Module used in configuration tests 6 7=head1 DESCRIPTION 8 9Nonsense module used only in testing the configuration system. 10 11=cut 12 13package init::alpha; 14use strict; 15use warnings; 16 17use base qw(Parrot::Configure::Step); 18 19sub _init { 20 my $self = shift; 21 my %data; 22 $data{description} = undef; 23 $data{args} = [ qw( ) ]; 24 $data{result} = q{}; 25 return \%data; 26} 27 28sub runstep { 29 my ( $self, $conf ) = @_; 30 print "\nYou've got alpha\n"; 31 return 1; 32} 33 341; 35 36# Local Variables: 37# mode: cperl 38# cperl-indent-level: 4 39# fill-column: 100 40# End: 41# vim: expandtab shiftwidth=4: 42