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	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;