1# Copyright (C) 2001-2003, Parrot Foundation.
2
3=head1 NAME
4
5t/configure/testlib/init/beta.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::beta;
14use strict;
15use warnings;
16
17use base qw(Parrot::Configure::Step);
18
19sub _init {
20    my $self = shift;
21    my %data;
22    $data{description} = q{Determining if your computer does beta};
23    $data{args}        = [ qw( verbose ) ];
24    $data{result}      = q{};
25    return \%data;
26}
27
28sub runstep {
29    my ( $self, $conf ) = @_;
30    my $verbose = $conf->options->get('verbose');
31    print "\nbeta is verbose\n" if $verbose;
32    print "\nYou've got beta\n";
33    return 1;
34}
35
361;
37
38# Local Variables:
39#   mode: cperl
40#   cperl-indent-level: 4
41#   fill-column: 100
42# End:
43# vim: expandtab shiftwidth=4:
44