html-webhacc/WebHACC/Input.pm

package WebHACC::Input;
use strict;

sub new ($) {
  return bless {id_prefix => ''}, shift;
} # new

sub id_prefix ($;$) {
  if (@_ > 1) {
    if (defined $_[1]) {
      $_[0]->{id_prefix} = ''.$_[1];
    } else {
      $_[0]->{id_prefix} = '';
    }
  }

  return $_[0]->{id_prefix};
} # id_prefix

sub nested ($;$) {
  if (@_ > 1) {
    if ($_[1]) {
      $_[0]->{nested} = 1;
    } else {
      delete $_[0]->{nested};
    }
  }

  return $_[0]->{nested};
} # nested

1;
1	wakaba	1.1	package WebHACC::Input;
2			use strict;
3
4			sub new ($) {
5			return bless {id_prefix => ''}, shift;
6			} # new
7
8			sub id_prefix ($;$) {
9			if (@_ > 1) {
10			if (defined $_[1]) {
11			$_[0]->{id_prefix} = ''.$_[1];
12			} else {
13			$_[0]->{id_prefix} = '';
14			}
15			}
16
17			return $_[0]->{id_prefix};
18			} # id_prefix
19
20			sub nested ($;$) {
21			if (@_ > 1) {
22			if ($_[1]) {
23			$_[0]->{nested} = 1;
24			} else {
25			delete $_[0]->{nested};
26			}
27			}
28
29			return $_[0]->{nested};
30			} # nested
31
32			1;