NAME

TipJar::fields - generate constants and accessors for array-based objects

SYNOPSIS

  package foobarbazobj;
  use TipJar::fields qw/foo bar baz/;
  sub new{ shift; bless [@_];};
  sub foobaz {my $obj = shift; "$$obj[foo]$obj->[baz]"}; # like C ENUM
  package main;
  $fbb = new foobarbazobj qw/uno dos tres/;
  print $fbb->getfoo();         #prints 'uno'
  print $fbb->setfoo(700);      #prints '700'
  print $fbb->foobaz();         #prints '700tres'

DESCRIPTION

Sugar to create named fields for accessing arrays, just like ENUM statements in the C programming language. Also goes ahead and creates get and set accessors.

EXPORT

exports zero through however many fields there are, as constant functions, like C ENUM. Also get* and set* accessors for each named field, assuming a reference-to-array object structure.

HISTORY

0.01

AUTHOR

David Nicol <davidnico@cpan.org> released April 2003 GPL/AL.

SEE ALSO

fields.