t/configure/testlib/inter/theta.pm

   1 # Copyright (C) 2001-2003, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 t/configure/testlib/inter/theta.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 inter::theta;
  15
  16 use strict;
  17 use warnings;
  18
  19 use File::Basename qw/basename/;
  20
  21 use base qw(Parrot::Configure::Step);
  22
  23 use Parrot::Configure::Utils ':inter';
  24
  25 sub _init {
  26     my $self = shift;
  27     my %data;
  28     $data{description} = q{Determining if your computer does theta};
  29     $data{args}        = [ qw( ask theta ) ];
  30     $data{result}      = q{};
  31     return \%data;
  32 }
  33
  34 sub runstep {
  35     my ( $self, $conf ) = @_;
  36
  37     my $ask = $conf->options->get('ask');
  38
  39     my $question = 'Will Perl 6 be out before Christmas?';
  40     my $response;
  41     if ($ask) {
  42         $response = prompt( $question, q{Y/n} );
  43     }
  44     return 1;
  45 }
  46
  47 1;
  48
  49 # Local Variables:
  50 #   mode: cperl
  51 #   cperl-indent-level: 4
  52 #   fill-column: 100
  53 # End:
  54 # vim: expandtab shiftwidth=4: