/ 
Class-Args-0.01
/ Class::Args

NAME

Class::Args - Write and Call methods in your style.

SYNOPSIS

  package Some::Module;
  use Class::Args;
  
  # constructor
  sub new { bless {},shift };
  
  sub hoge {
	my ($self, $arg1, $arg2) = args(@_);
	
	# You can call other functions with $self.
	# Moreover, you can use $self as hash reference even 
	# this function was called in non object-oriented style.
	if($self->{_cache}){
		$rv = $self->{_cache}; # use cache
	}
	else{
		$rv = $self->other_function($arg1, $arg2);
		$self->{_cache} = $rv; # store cache
	}
	
	return $rv;
  }
  
  # in your script
  
  use Some::Module;
  
  my $obj = new Some::Module;
  print $obj->hoge('foo', 'bar'); # ok
  
  print Some::Module::hoge('foo', 'bar'); # ok
  # same as 
  print Some::Module->hoge('foo', 'bar'); # ok

DESCRIPTION

There's more than one way to do it!

There are object oriented style and procedural style in this world.
But if you are using Class::Args, you can write methods in your favorite style
and users can call it in their favorite style.

EXPORT

Function "args" was imported by default.
B<If you don't want to import it>, write as below:


use Class::Args();

and in function write as below:

  sub hoge {
	my ($self, $arg1, $arg2) = Class::Args::args(@_);
	...
  }


 Instead of writing "Class::Args::args(@_)", you can write "Class::Args::a(@_)".
I don't like to write long chars.
This is why I named this module not "Class::Argument" but "Class::Args".

FUNCTIONS

args();

 my ($self, $arg1, $arg2) = args(@_);
 # or 
 my ($self, @args) = args(@_);

Adjust function arguments.
Always function receives blessed hash reference ($self) as first argument.
Class::Args creates and supplies it if first argument is not $self.
Auto-created $self is cached so three calling styles as below are equal.
They share same $self.


 Some::Module::func('foo', 'bar');
 Some::Module->func('foo', 'bar');
 func('foo', 'bar'); # if func() was imported.

Of course, $self will be different if function was called in object oriented style.

 $obj1->func('foo', 'bar');
 $obj2->func('foo', 'bar');


Notice that auto-created $self is not initialized.
It is created as an empty blessed hash reference.

a

Alias of "args".

SEE ALSO

TO DO

I will make option which create object ( do "new Some::Module" ) and set it in
auto-created $self instead empty hash reference.

AUTHOR

Kagurazaka Mahito , < mahito@cpan.org >

COPYRIGHT AND LICENSE

Copyright (C) 2005 by Kagurazaka Mahito

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.