NAME
    Object::AutoAccessor - Accessor class by using AUTOLOAD

SYNOPSIS
      use Object::AutoAccessor;
  
      my $obj = Object::AutoAccessor->new();
  
      # setter methods
      $obj->foo('bar');
      $obj->set_foo('bar');
      $obj->param(foo => 'bar');
  
      # getter methods
      $obj->foo();
      $obj->get_foo();
      $obj->param('foo');
  
      # set/get array
      $obj->array([qw(foo bar)]);
      $obj->push(array => 'baz');
      my $baz = $obj->pop('array');
      my $foobar = $obj->join(',', 'array'); # got 'foo,bar'
  
      # set/get hash
      $obj->hash(+{ foo => 'fooval', bar => 'barval' });
      my $hashref = $obj->hash;
      my @keys = $obj->keys('hash');
      my @values = $obj->values('hash');
      my ($key, $val) = $obj->each('hash');
  
      # set/get coderef
      $obj->code(sub { print "CODEREF\n" });
      my $code = $obj->code;
      $code->();
  
      # set/get globref
      $obj->glob(\*STDOUT);
      my $glob = $obj->glob;
      print $glob "Hello\n";
  
      # is_hashref/arrayref/coderef/globref/scalar
      $obj->is_hashref('hash');
      $obj->is_arrayref('array');
      $obj->is_coderef('code');
      $obj->is_globref('glob');
      $obj->is_scalar('foo');
  
      # $obj->param() is compatible with HTML::Template->param()
      my @keywords = $obj->param();
      my $val = $obj->param('hash');
      $obj->param(key => 'val');

DESCRIPTION
    Object::AutoAccessor is a Accessor class to get/set values by AUTOLOADed
    method automatically, and also can use various methods of the same name
    as built-in functions such as push() , pop() , each() , join() ,
    length() , sprintf() and so on. Moreover, param() is compatible with
    "HTML::Template" module, so you can use Object::AutoAccessor object for
    "HTML::Template"'s "associate" option.

METHODS
    new ( [ OPTIONS ] )
        Create a new Object::AutoAccessor object. Then you can use several
        options to control object's behavior.

        * autoload
            If set to 0, the object cannot use the
            AUTOLOADed-accessor-method such as foo() , set_foo() and
            get_foo() but param() . Defaults to 1.

        * bindstyle
            If set to 'sql', behavior of bind() method changes into
            SQL-style-quoting. Defaults to 'normal' or undef.

    renew ( [ OPTIONS ] )
        Create a new Object::AutoAccessor object to remaining current
        options.

    KEY ( [ VALUE ] )
        This method provides an accessor that methodname is same as keyname
        by using AUTOLOAD mechanism.

          # setter methods
          $obj->foo('bar');
          $obj->set_foo('bar');
          $obj->param(foo => 'bar');
  
          # getter methods
          $obj->foo();
          $obj->get_foo();
          $obj->param('foo');

    param ( [ KEY => VALUE, ... ] )
        This method is compatible with param() method of HTML::Template
        module.

          # set value
          $obj->param(foo => 'bar');
          $obj->param(
            foo => 'bar',
            bar => [qw(1 2 3)],
            baz => { one => 1, two => 2, three => 3 }
          );
  
          # get value
          $obj->param('foo'); # got 'bar'
  
          # get list keys of parameters
          @keys = $obj->param();

    bind ( KEY, BIND )
        This method provides a simple replacing mechanism that changes
        *placeholder* to bindings just looks like execute() method of DBI.

          $obj->sentence(q{What is the ? ? in ?\?});
  
          # $result is "What is the highest mountain in Japan?"
          $result = $obj->bind(sentence => qw(highest mountain Japan));

    bindstyle ( STYLE )
        If you want SQL-style-quoting, use bindstyle() and set value 'sql'.

          @binds = ('bar' "It's OK" '-0.123');
          $obj->bindstyle('sql');
          $obj->statement(q{SELECT * FROM foo WHERE BAR = ? AND BAZ = ? AND DECIMAL = ?});
  
          # $result is "SELECT * FROM foo WHERE BAR = 'bar' AND BAZ = 'It''s OK' AND DECIMAL = -0.123"
          $result = $obj->bind(statement => @binds);

    as_hashref ()
        As shown in name. :)

AUTHOR
    Copyright 2005 Michiya Honda, <pia@cpan.org> All rights reserved.

    This library is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.

SEE ALSO
    HTML::Template.

