| Class-MakeMethods documentation | Contained in the Class-MakeMethods distribution. |
Class::MakeMethods::Basic::Global - Basic shared methods
package MyObject;
use Class::MakeMethods::Basic::Global (
scalar => [ 'foo', 'bar' ],
array => 'my_list',
hash => 'my_index',
);
....
# Store and retrieve global values
MyObject->foo('Foobar');
print MyObject->foo();
# All instances of your class access the same values
$my_object->bar('Barbados');
print $other_one->bar();
# Array accessor
MyObject->my_list(0 => 'Foozle', 1 => 'Bang!');
print MyObject->my_list(1);
# Hash accessor
MyObject->my_index('broccoli' => 'Blah!', 'foo' => 'Fiddle');
print MyObject->my_index('foo');
The Basic::Global subclass of MakeMethods provides basic accessors for data shared by an entire class, sometimes called "static" or "class data."
When you use this package, the method names you provide
as arguments cause subroutines to be generated and installed in
your module.
See "Calling Conventions" in Class::MakeMethods::Basic for a summary, or "USAGE" in Class::MakeMethods for full details.
To declare methods, pass in pairs of a method-type name followed by one or more method names. Valid method-type names for this package are listed in "METHOD GENERATOR TYPES".
See "Declaration Syntax" in Class::MakeMethods::Basic for more syntax information.
See Class::MakeMethods for general information about this distribution.
See Class::MakeMethods::Basic for more about this family of subclasses.
| Class-MakeMethods documentation | Contained in the Class-MakeMethods distribution. |
package Class::MakeMethods::Basic::Global; $VERSION = 1.000; use Class::MakeMethods '-isasubclass'; ########################################################################
sub scalar { my $class = shift; map { my $name = $_; $name => sub { my $self = shift; if ( scalar @_ ) { $value = shift; } else { $value; } } } @_; } ########################################################################
sub array { my $class = shift; map { my $name = $_; my $value = []; $name => sub { my $self = shift; if ( scalar(@_) == 1 ) { my $index = shift; ref($index) ? @{$value}[ @$index ] : $value->[ $index ]; } elsif ( scalar(@_) % 2 ) { Carp::croak "Odd number of items in assigment to $name"; } else { while ( scalar(@_) ) { $value->[ shift() ] = shift(); } return $value; } } } @_; } ########################################################################
sub hash { my $class = shift; map { my $name = $_; my $value = {}; $name => sub { my $self = shift; if ( scalar(@_) == 1 ) { my $index = shift; ref($index) ? @{$value}{ @$index } : $value->{ $index }; } elsif ( scalar(@_) % 2 ) { Carp::croak "Odd number of items in assigment to $name"; } else { while ( scalar(@_) ) { my $key = shift; $value->{ $key } = shift(); } $value; } } } @_; } ########################################################################
1;