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