lib/Stem/Test/ConfTypes.pm

   1 #  File: Stem/Test/ConfTypes.pm
   2
   3 #  This file is part of Stem.
   4 #  Copyright (C) 1999, 2000, 2001 Stem Systems, Inc.
   5
   6 #  Stem is free software; you can redistribute it and/or modify
   7 #  it under the terms of the GNU General Public License as published by
   8 #  the Free Software Foundation; either version 2 of the License, or
   9 #  (at your option) any later version.
  10
  11 #  Stem is distributed in the hope that it will be useful,
  12 #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 #  GNU General Public License for more details.
  15
  16 #  You should have received a copy of the GNU General Public License
  17 #  along with Stem; if not, write to the Free Software
  18 #  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19
  20 #  For a license to use the Stem under conditions other than those
  21 #  described here, to purchase support for this software, or to purchase a
  22 #  commercial warranty contract, please contact Stem Systems at:
  23
  24 #       Stem Systems, Inc.              781-643-7504
  25 #       79 Everett St.                  info@stemsystems.com
  26 #       Arlington, MA 02474
  27 #       USA
  28
  29 package Stem::Test::ConfTypes ;
  30
  31 my $attr_spec = [
  32
  33         {
  34                 'name'          => 'bool_attr',
  35                 'type'          => 'boolean',
  36                 'help'          => <<HELP,
  37 Boolean attribute for testing Stem::Class
  38 HELP
  39         },
  40         {
  41                 'name'          => 'list_attr',
  42                 'type'          => 'list',
  43                 'help'          => <<HELP,
  44 List attribute for testing Stem::Class
  45 HELP
  46         },
  47         {
  48                 'name'          => 'hash_attr',
  49                 'type'          => 'hash',
  50                 'help'          => <<HELP,
  51 Hash attribute for testing Stem::Class
  52 HELP
  53         },
  54         {
  55                 'name'          => 'lol_attr',
  56                 'type'          => 'LoL',
  57                 'help'          => <<HELP,
  58 List of Lists attribute for testing Stem::Class
  59 HELP
  60         },
  61         {
  62                 'name'          => 'loh_attr',
  63                 'type'          => 'LoH',
  64                 'help'          => <<HELP,
  65 List of Hashes attribute for testing Stem::Class
  66 HELP
  67         },
  68         {
  69                 'name'          => 'hol_attr',
  70                 'type'          => 'HoL',
  71                 'help'          => <<HELP,
  72 Hash of Lists attribute for testing Stem::Class
  73 HELP
  74         },
  75         {
  76                 'name'          => 'hoh_attr',
  77                 'type'          => 'HoH',
  78                 'help'          => <<HELP,
  79 Hash of Hashes attribute for testing Stem::Class
  80 HELP
  81         },
  82 ] ;
  83
  84 sub new {
  85
  86         my( $class ) = shift ;
  87
  88         my $self = Stem::Class::parse_args( $attr_spec, @_ ) ;
  89         return $self unless ref $self ;
  90
  91 #use YAML ;
  92
  93 #       warn Dump $self ;
  94
  95         return( $self ) ;
  96 }
  97
  98 1 ;