| Class-MakeMethods documentation | Contained in the Class-MakeMethods distribution. |
Class::MakeMethods::Composite::Global - Global data
package MyClass;
use Class::MakeMethods::Composite::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 Composite::Global suclass of MakeMethods provides basic accessors for shared data.
When you use this package, the method declarations you provide
as arguments cause subroutines to be generated and installed in
your module.
You can also omit the arguments to use and instead make methods
at runtime by passing the declarations to a subsequent call to
make().
You may include any number of declarations in each call to use
or make(). If methods with the same name already exist, earlier
calls to use or make() win over later ones, but within each
call, later declarations superceed earlier ones.
You can install methods in a different package by passing -TargetClass => package as your first arguments to use or make.
See Class::MakeMethods for more details.
The following types of Basic declarations are supported:
See the "METHOD GENERATOR TYPES" section below for a list of the supported values of generator_type.
For each method name you provide, a subroutine of the indicated type will be generated and installed under that name in your module.
Method names should start with a letter, followed by zero or more letters, numbers, or underscores.
The Composite syntax also provides several ways to optionally associate a hash of additional parameters with a given method name.
name, you create a self-contained declaration with that name and any associated hash values.Basic declarations, as described above, are given an empty parameter hash.
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::Composite::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::Composite::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::Composite::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::Composite::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::Composite for more about this family of subclasses.
| Class-MakeMethods documentation | Contained in the Class-MakeMethods distribution. |
package Class::MakeMethods::Composite::Global; $VERSION = 1.000; use strict; use Class::MakeMethods::Composite '-isasubclass'; ########################################################################
use vars qw( %ScalarFragments ); sub scalar { (shift)->_build_composite( \%ScalarFragments, @_ ); } %ScalarFragments = ( '' => [ '+init' => sub { my ($method) = @_; $method->{target_class} ||= $Class::MethodMaker::CONTEXT{TargetClass}; $method->{array_index} ||= _array_index( $method->{target_class}, $name ); }, 'do' => sub { my $method = pop @_; my $self = shift @_; if ( scalar(@_) == 0 ) { $method->{global_data}; } elsif ( scalar(@_) == 1 ) { $method->{global_data} = shift; } else { $method->{global_data} = [@_]; } }, ], 'rw' => [], 'p' => [ '+pre' => sub { my $method = pop @_; unless ( UNIVERSAL::isa((caller(1))[0], $method->{target_class}) ) { croak "Method $method->{name} is protected"; } }, ], 'pp' => [ '+pre' => sub { my $method = pop @_; unless ( (caller(1))[0] eq $method->{target_class} ) { croak "Method $method->{name} is private"; } }, ], 'pw' => [ '+pre' => sub { my $method = pop @_; my $self = shift @_; my $args = \@_; unless ( @$args == 0 or UNIVERSAL::isa((caller(1))[0], $method->{target_class}) ) { croak "Method $method->{name} is write-protected"; } }, ], 'ppw' => [ '+pre' => sub { my $method = pop @_; my $self = shift @_; my $args = \@_; unless ( @$args == 0 or (caller(1))[0] eq $method->{target_class} ) { croak "Method $method->{name} is write-private"; } }, ], 'r' => [ '+pre' => sub { my $method = pop @_; my $self = shift @_; @{$method->{args}} = ($self) if ( scalar @_ ); }, ], 'ro' => [ '+pre' => sub { my $method = pop @_; my $self = shift @_; my $args = \@_; unless ( @$args == 0 ) { croak("Method $method->{name} is read-only"); } }, ], 'wo' => [ '+pre' => sub { my $method = pop @_; my $self = shift @_; my $args = \@_; if ( @$args == 0 ) { croak("Method $method->{name} is write-only"); } }, ], 'return_original' => [ '+pre' => sub { my $method = pop @_; my $self = shift @_; my $args = \@_; $method->{scratch}{return_original} = $method->{global_data}; }, '+post' => sub { my $method = pop @_; my $self = shift @_; my $args = \@_; $method->{result} = \{ $method->{scratch}{return_original} }; }, ], ); ########################################################################
use vars qw( %ArrayFragments ); sub array { (shift)->_build_composite( \%ArrayFragments, @_ ); } %ArrayFragments = ( '' => [ '+init' => sub { my ($method) = @_; $method->{hash_key} ||= $_->{name}; }, 'do' => sub { my $method = pop @_; my $self = shift @_; my $args = \@_; if ( scalar(@$args) == 0 ) { if ( $method->{auto_init} and ! defined $method->{global_data} ) { $method->{global_data} = []; } wantarray ? @{ $method->{global_data} } : $method->{global_data} } elsif ( scalar(@_) == 1 and ref $_[0] eq 'ARRAY' ) { $method->{global_data} = [ @{ $_[0] } ]; wantarray ? @{ $method->{global_data} } : $method->{global_data} } else { $method->{global_data} ||= []; Class::MakeMethods::Composite::__array_ops( $method->{global_data}, @$args ); } }, ], ); ########################################################################
use vars qw( %HashFragments ); sub hash { (shift)->_build_composite( \%HashFragments, @_ ); } %HashFragments = ( '' => [ '+init' => sub { my ($method) = @_; $method->{hash_key} ||= $_->{name}; }, 'do' => sub { my $method = pop @_; my $self = shift @_; my $args = \@_; if ( scalar(@$args) == 0 ) { if ( $method->{auto_init} and ! defined $method->{global_data} ) { $method->{global_data} = {}; } wantarray ? %{ $method->{global_data} } : $method->{global_data}; } elsif ( scalar(@$args) == 1 ) { if ( ref($_[0]) eq 'HASH' ) { %{$method->{global_data}} = %{$_[0]}; } elsif ( ref($_[0]) eq 'ARRAY' ) { return @{$method->{global_data}}{ @{$_[0]} } } else { return $method->{global_data}->{ $_[0] } } } elsif ( scalar(@$args) % 2 ) { croak "Odd number of items in assigment to $method->{name}"; } else { while ( scalar(@$args) ) { my $key = shift @$args; $method->{global_data}->{ $key} = shift @$args; } wantarray ? %{ $method->{global_data} } : $method->{global_data}; } }, ], ); ########################################################################
use vars qw( %ObjectFragments ); sub object { (shift)->_build_composite( \%ObjectFragments, @_ ); } %ObjectFragments = ( '' => [ '+init' => sub { my ($method) = @_; $method->{hash_key} ||= $_->{name}; }, 'do' => sub { my $method = pop @_; my $self = shift; if ( scalar @_ ) { my $value = shift; if ( $method->{class} and ! UNIVERSAL::isa( $value, $method->{class} ) ) { croak "Wrong argument type ('$value') in assigment to $method->{name}"; } $method->{global_data} = $value; } else { if ( $method->{auto_init} and ! defined $method->{global_data} ) { my $class = $method->{class} or die "Can't auto_init without a class"; my $new_method = $method->{new_method} || 'new'; $method->{global_data} = $class->$new_method(); } $method->{global_data}; } }, ], ); ########################################################################
1;