t/configure/testlib/init/beta.pm

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