/ 
Object-AutoAccessor-0.02
River stage zero No dependents
/ Object::AutoAccessor

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.