| Class-MakeMethods documentation | Contained in the Class-MakeMethods distribution. |
Class::MakeMethods::Standard::Global - Global data
package MyClass;
use Class::MakeMethods::Standard::Global (
scalar => [ 'foo' ],
array => [ 'my_list' ],
hash => [ 'my_index' ],
);
...
MyClass->foo( 'Foozle' );
print MyClass->foo();
print MyClass->new(...)->foo(); # same value for any instance
print MySubclass->foo(); # ... and for any subclass
MyClass->my_list(0 => 'Foozle', 1 => 'Bang!');
print MyClass->my_list(1);
MyClass->my_index('broccoli' => 'Blah!', 'foo' => 'Fiddle');
print MyClass->my_index('foo');
The Standard::Global suclass of MakeMethods provides basic accessors for shared 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::Standard for more information.
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::Standard and "Parameter Syntax" in Class::MakeMethods::Standard for more information.
For each method name passed, uses a closure to generate a subroutine with the following characteristics:
Sample declaration and usage:
package MyClass;
use Class::MakeMethods::Standard::Global (
scalar => 'foo',
);
...
# Store value
MyClass->foo('Foozle');
# Retrieve value
print MyClass->foo;
For each method name passed, uses a closure to generate a subroutine with the following characteristics:
Sample declaration and usage:
package MyClass;
use Class::MakeMethods::Standard::Global (
array => 'bar',
);
...
# Clear and set contents of list
print MyClass->bar([ 'Spume', 'Frost' ] );
# Set values by position
MyClass->bar(0 => 'Foozle', 1 => 'Bang!');
# Positions may be overwritten, and in any order
MyClass->bar(2 => 'And Mash', 1 => 'Blah!');
# Retrieve value by position
print MyClass->bar(1);
# Direct access to referenced array
print scalar @{ MyClass->bar() };
There are also calling conventions for slice and splice operations:
# Retrieve slice of values by position
print join(', ', MyClass->bar( undef, [0, 2] ) );
# Insert an item at position in the array
MyClass->bar([3], 'Potatoes' );
# Remove 1 item from position 3 in the array
MyClass->bar([3, 1], undef );
# Set a new value at position 2, and return the old value
print MyClass->bar([2, 1], 'Froth' );
For each method name passed, uses a closure to generate a subroutine with the following characteristics:
Sample declaration and usage:
package MyClass;
use Class::MakeMethods::Standard::Global (
hash => 'baz',
);
...
# Set values by key
MyClass->baz('foo' => 'Foozle', 'bar' => 'Bang!');
# Values may be overwritten, and in any order
MyClass->baz('broccoli' => 'Blah!', 'foo' => 'Fiddle');
# Retrieve value by key
print MyClass->baz('foo');
# Retrive slice of values by position
print join(', ', MyClass->baz( ['foo', 'bar'] ) );
# Direct access to referenced hash
print keys %{ MyClass->baz() };
# Reset the hash contents to empty
@{ MyClass->baz() } = ();
For each method name passed, uses a closure to generate a subroutine with the following characteristics:
Sample declaration and usage:
package MyClass;
use Class::MakeMethods::Standard::Global (
object => 'foo',
);
...
# Store value
MyClass->foo( Foozle->new() );
# Retrieve value
print MyClass->foo;
See Class::MakeMethods for general information about this distribution.
See Class::MakeMethods::Standard for more about this family of subclasses.
| Class-MakeMethods documentation | Contained in the Class-MakeMethods distribution. |
package Class::MakeMethods::Standard::Global; $VERSION = 1.000; use strict; use Class::MakeMethods::Standard '-isasubclass'; use Class::MakeMethods::Utility::ArraySplicer 'array_splicer'; ########################################################################
sub scalar { map { my $name = $_->{name}; my $data; $name => sub { my $self = shift; if ( scalar(@_) == 0 ) { $data; } else { $data = shift; } } } (shift)->_get_declarations(@_) } ########################################################################
sub array { map { my $name = $_->{name}; my $data; my $init = $_->{auto_init}; $name => sub { my $self = shift; if ( scalar(@_) == 0 ) { if ( $init and ! defined $data ) { $data = []; } ! $data ? () : wantarray ? @$data : $data; } elsif ( scalar(@_) == 1 and ref $_[0] eq 'ARRAY' ) { $data = [ @{ $_[0] } ]; wantarray ? @$data : $data; } else { $data ||= []; return array_splicer( $data, @_ ); } } } (shift)->_get_declarations(@_) } ########################################################################
sub hash { map { my $name = $_->{name}; my $data; my $init = $_->{auto_init}; $name => sub { my $self = shift; if ( scalar(@_) == 0 ) { if ( $init and ! defined $data ) { $data = {}; } ! $data ? () : wantarray ? %$data : $data } elsif ( scalar(@_) == 1 ) { if ( ref($_[0]) eq 'HASH' ) { my $hash = shift; $data = { %$hash }; } elsif ( ref($_[0]) eq 'ARRAY' ) { return @{$data}{ @{$_[0]} } } else { return $data->{ $_[0] } } } elsif ( scalar(@_) % 2 ) { Carp::croak "Odd number of items in assigment to $name"; } else { while ( scalar(@_) ) { my $key = shift(); $data->{ $key } = shift(); } wantarray ? %$data : $data; } } } (shift)->_get_declarations(@_) } ########################################################################
sub object { map { my $name = $_->{name}; my $data; my $class = $_->{class}; my $init = $_->{auto_init}; if ( $init and ! $class ) { Carp::croak("Use of auto_init requires value for class parameter") } my $new_method = $_->{new_method} || 'new'; $name => sub { my $self = shift; if ( scalar @_ ) { my $value = shift; if ( $class and ! UNIVERSAL::isa( $value, $class ) ) { Carp::croak "Wrong argument type ('$value') in assigment to $name"; } $data = $value; } else { if ( $init and ! defined $data ) { $data = $class->$new_method(); } $data; } } } (shift)->_get_declarations(@_) } ########################################################################
1;