Select Code to Download

package Objects::Status; {
  use Object::InsideOut;
...
         Objects::StatusElement->new('Name' => $value);
           }
  }

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

    );
}

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

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