David Nicol > TipJar-fields > TipJar::fields

Download:
TipJar-fields-0.01.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.01   Source  

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.

syntax highlighting: