Folks,

I'd like to use an object created using Object::InsideOut that would store in its array (of type LIST) elements which are themselves objects. I'd like that upon object creation, that it takes a series of name strings and creates this list of other objects, each one having its own name.

This means calling new() for each object to create and using sequentially the names given for each in an array passed as parameter to $obj->new().

The main object would look like:

package Objects::Status; {
  use Object::InsideOut;

  my @statuses :Field('Standard' => 'statuses', Type => 'Objects::Stat
+usElement');

  my %init_args :InitArgs =
    (
     'STATUSES' =>
     {
      'Type'    => 'LIST',
      'Field'   => \@statuses,
      'Default' => 'empty',
     },
    );

  sub init :Init
  {
    my ($self, $args) = @_;
    $self->set(\@statuses,
           foreach my $value (keys @$args->{'STATUSES'}){
         Objects::StatusElement->new('Name' => $value);
           }
  }
[download]

This object will store an array of the following object:

package Objects::StatusElement; {
  use Object::InsideOut;

  my @name :Field('Standard' => 'name');
  my @status :Field('Standard' => 'status');
  my @acknowledged :Field('Standard' => 'acknowledged');

  my %init_args :InitArgs =
    (
     'NAME' =>
     {
      'Regex'     => qr/^name$/i,
      'Mandatory' => 1,
      'Field'     => \@name,
     },

     'STATUS' =>
     {
      'Regex'     => qr/^status$/i,
      'Default' => 'ERROR',
      'Field'     => \@status,
     },

     'ACKNOWLEDGED' =>
     {
      'Regex'     => qr/^acknowledged$/i,
      'Default' => 0,
      'Type'      => 'NUMERIC',
      'Field'     => \@acknowledged,
     },

    );
}
[download]

What I have trouble with, is how to declare the initialization loop that will take each string given in the Status creation:

my $unitStatus = Objects::Status->new(statuses => ['DataFileFound', 'I
+nfoFileFound', 'OtherStatus']);
[download]

... and create each StatusElement object as if the following was called repeatedly:

pushd @theObjectArray,  Objects::StatusElement->new('Name' => 'DataFil
+eFound');
pushd @theObjectArray,  Objects::StatusElement->new('Name' => 'InfoFil
+eFound');
pushd @theObjectArray,  Objects::StatusElement->new('Name' => 'OtherSt
+atus');
[download]

Or is it altogether not the right way to achieve this ?

Any suggestions welcomed ! - Thanks !