From bcbf441e09fb502cf64924ff2530fa144bdf52c5 Mon Sep 17 00:00:00 2001
From: Andreas Brachold <vdr07@deltab.de>
Date: Mon, 13 Aug 2007 18:41:27 +0000
Subject: * Move files to trunk

---
 lib/Class/MakeMethods/Template/Array.pm | 102 ++++++++++++++++++++++++++++++++
 1 file changed, 102 insertions(+)
 create mode 100644 lib/Class/MakeMethods/Template/Array.pm

(limited to 'lib/Class/MakeMethods/Template/Array.pm')

diff --git a/lib/Class/MakeMethods/Template/Array.pm b/lib/Class/MakeMethods/Template/Array.pm
new file mode 100644
index 0000000..0d2ab2d
--- /dev/null
+++ b/lib/Class/MakeMethods/Template/Array.pm
@@ -0,0 +1,102 @@
+package Class::MakeMethods::Template::Array;
+
+use Class::MakeMethods::Template::Generic '-isasubclass';
+
+$VERSION = 1.008;
+use strict;
+require 5.00;
+use Carp;
+
+=head1 NAME
+
+Class::MakeMethods::Template::Array - Methods for manipulating positional values in arrays
+
+=head1 SYNOPSIS
+
+
+=head1 DESCRIPTION
+
+=cut
+
+use vars qw( %ClassInfo );
+
+sub generic {
+  {
+    'params' => {
+      'array_index' => undef,
+    },
+    'code_expr' => { 
+      _VALUE_ => '_SELF_->[_STATIC_ATTR_{array_index}]',
+      '-import' => { 'Template::Generic:generic' => '*' },
+      _EMPTY_NEW_INSTANCE_ => 'bless [], _SELF_CLASS_',
+      _SET_VALUES_FROM_HASH_ => 'while ( scalar @_ ) { local $_ = shift(); $self->[ _BFP_FROM_NAME_{ $_ } ] = shift() }'
+    },
+    'behavior' => {
+      '-init' => sub {
+	my $m_info = $_[0]; 
+	
+	# If we're the first one, 
+	if ( ! $ClassInfo{$m_info->{target_class}} ) {
+	  # traverse inheritance hierarchy, looking for fields to inherit
+	  my @results;
+	  no strict 'refs';
+	  my @sources = @{"$m_info->{target_class}\::ISA"};
+	  while ( my $class = shift @sources ) {
+	    next unless exists $ClassInfo{ $class };
+	    push @sources, @{"$class\::ISA"};
+	    if ( scalar @results ) { 
+	      Carp::croak "Too many inheritances of fields";
+	    }
+	    push @results, @{$ClassInfo{$class}};
+	  }
+	  $ClassInfo{$m_info->{target_class}} = \@sources;
+	}
+	
+	my $class_info = $ClassInfo{$m_info->{target_class}};
+	if ( ! defined $m_info->{array_index} ) {
+	  foreach ( 0..$#$class_info ) { 
+	    if ( $class_info->[$_] eq $m_info->{'name'} ) {
+	      $m_info->{array_index} = $_; last }
+	  }
+	  if ( ! defined $m_info->{array_index} ) {
+	    push @ $class_info, $m_info->{'name'};
+	    $m_info->{array_index} = $#$class_info;
+	  }
+	}
+	
+	return;	
+      },
+    },
+  } 
+}
+
+########################################################################
+
+=head2 Standard Methods
+
+The following methods from Generic should be supported:
+
+  scalar
+  string
+  number 
+  boolean
+  bits (?)
+  array
+  hash
+  tiedhash (?)
+  hash_of_arrays (?)
+  object
+  instance
+  array_of_objects (?)
+  code
+  code_or_scalar (?)
+
+See L<Class::MakeMethods::Template::Generic> for the interfaces and behaviors of these method types.
+
+The items marked with a ? above have not been tested sufficiently; please inform the author if they do not function as you would expect.
+
+=cut
+
+########################################################################
+
+1;
-- 
cgit v1.2.3