NAME

OP::Array

DESCRIPTION

Array object class.

Extends OP::Object to handle Perl ARRAY refs as OP Objects. Provides constructor, getters, setters, "Ruby-esque" collection, and other methods which one might expect an Array object to respond to.

INHERITANCE

This class inherits additional class and object methods from the following packages:

OP::Class > OP::Object > OP::Array

SYNOPSIS

use OP::Array;

my $emptyList = OP::Array->new();

my $arrayFromList = OP::Array->new(@list); # Makes new ref

my $arrayFromRef = OP::Array->new($ref);   # Keeps orig ref

METHODS

Public Class Methods

$class->new(@list)

Instantiate a new OP::Array. Accepts an optional array or array reference as a prototype object

Usage is cited in the SYNOPSIS section of this document.

$class->assert(OP::Type $memberType, *@rules)

Return a new OP::Type::Array instance.

To permit multiple values of a given type, just wrap an Array() assertion around any other assertion.

Each element in the stored array lives in a dynamically subclassed linked table, with foreign key constraints against the parent table.

#
# File: Example.pm
#

use OP;

create "OP::Example" => {
  #
  # An array of strings:
  #
  someArr => OP::Array->assert(
    OP::Str->assert()
  ),

  ...
};

In Caller:

#!/bin/env perl
#
# File: somecaller.pl
#

use strict;
use warnings;

use OP::Example;

my $exa = OP::Example->spawn("Array Example");

$exa->setSomeArr("Foo", "Bar", "Rebar", "D-bar");

$exa->save();

Nested Arrays: Array() can be wrapped around other Array() assertions, for cases where multi-dimensional arrays are needed. Each assertion has independent rules:

#
# File: Example.pm
#

use OP;

create "OP::Example" => {
  #
  # Fancy... a 3x3 matrix of integers with per-element enforcement of
  # min and max values:
  #
  matrix => OP::Array->assert(
    OP::Array->assert(
      OP::Int->assert( ::min(0), ::max(255) ),
      ::size(3)
    ),
    ::size(3)
  ),

  # ...
};

In caller:

#!/bin/env perl
#
# File: somecaller.pl
#

use strict;
use warnings;

use OP::Example;

my $example = OP::Example->spawn("Matrix Example");

#
# Data looks like this:
#
$example->setMatrix(
  [255, 127, 63],
  [69,  69,  69]
  [42,  23,  5]
);

$example->save();

Public Instance Methods

$self->get($index)

Get the received array index. Functionally the same as $ref->[$index].

my $array = OP::Array->new( qw| foo bar | );

my $foo = $array->get(0);
my $bar = $array->get(1);

$self->set($index, $value)

Set the received array index to the received value. Functionally the same as $ref->[$index] = $value.
```
my $array = OP::Array->new( qw| foo bar | );

$array->set(1, "rebar"); # was "bar", now is "rebar"
```
$self->push(@list)

Object wrapper for Perl's built-in push() function. Functionally the same as push(@$ref, @list).
```
my $array = OP::Array->new();

$array->push($something);

$array->push( qw| foo bar | );
```
$self->size()

Object wrapper for Perl's built-in scalar() function. Functionally the same as scalar(@$ref).
```
my $array = OP::Array->new( qw| foo bar | );

my $size = $array->size(); # returns 2
```
$self->collect($sub)
$self->collectWithIndex($sub)
yield(item, [item, ...]), emit(item, [item, ...]), return, break

List iterator method. collect returns a new array with the results of running the received CODE block once for every element in the original. Returns the yielded/emitted results in a new OP::Array instance.

This Perl implementation of collect is borrowed from Ruby. OP employs several functions which may finely control the flow of execution.

The collector pattern is used throughout OP. The following pseudocode illustrates its possible usage.
```
 my $array = OP::Array->new( ... );

 my $sub = sub {
   my $item = shift;

   ...
   return if $something;       # Equivalent to next()
   break if $somethingElse;    # Equivalent to last()

   ...
   emit $thing1, [$thing2, ...]; # Upstreams $things,
                                 # and continues current iteration
   ...
   yield $thing1, [$thing2, ...]; # Upstreams $things,
                                  # and skips to next iteration

 };

 my $results = $array->collect($sub);
```
A working example - return a new array containing capitalized versions of each element in the original. Collection is performed using collect; each may be used when there is code to run with no return values.

Rather than shifting arguments, this example uses Perl6::Subs prototypes.
```
my $array = OP::Array->new(
  foo bar baz whiskey tango foxtrot
);

my $capped = $array->collect( sub(Str $item) {
  yield uc($item)
} );

$capped->each( sub(Str $item) {
  print "Capitalized array contains item: $item\n";
} );
```
Collector Control Flow

The flow of the collect sub may be controlled using return, yield, emit, and break.

break invokes Perl's last, breaking execution of the collect loop. break is exported from OP::Recur.

In the context of the collect sub, return is like Perl's next or Javascript's continue- that is, it stops execution of the sub in progress, and continues on to the next iteration. Because Perl subs always end with an implicit return, using return to reap yielded elements is not workable, so we use yield for this instead. Any arguments to return in this context are ignored.

Like return, yield stops execution of the sub in progress, but items passed as arguments to yield are added to the new array returned by collect.

emit adds items to the returned array, but does so without returning from the sub in progress. Emitted items are added to the array returned by the collect sub, just like yield, but you may call emit as many times as needed per iteration, without breaking execution.

If nothing is yielded or emitted by the collect sub in an iteration, nothing will be added to the returned array for that item. To yield nothing for an iteration, don't yield(undef), just don't yield-- Rather, use return instead, to avoid undefined elements in the returned array.

If yielding multiple items at a time, they are added to the array returned by collect in a "flat" manner-- that is, no array nesting will occur unless the yielded data is explicitly structured as such.

Recap: Return vs Yield vs Emit

yield adds items to the array returned by the collect sub, in addition to causing Perl to jump ahead to the next iteration, like next in a for loop would. Remember, return just returns without adding anything to the return array-- use it in cases where you just want to skip ahead without yielding items (ie next).
```
#
# For example, create a new Array ($quoted) containing quoted elements
# from the original, omitting items which aren't wanted.
#
my $quoted = $array->collect( sub ( Any $item ) {
  print "Have item: $item\n";

  return if $item =~ /donotwant/;

  yield $myClass->quote($item);

  print "You will never get here.\n";
} );

#
# The above was a more compact way of doing this:
#
my $quoted = OP::Array->new();

for ( @{ $array } ) {
  print "Have item: $_\n";

  next if $_ =~ /donotwant/;

  $quoted->push( $myClass->quote($_) );

  next;

  print "You will never get here.\n";
}
```
emit adds items to the array returned by the collect sub, but does so without returning (that is, execution of the sub in progress will continue uninterrupted). It's just like pushing to an array from inside a for loop, because that's exactly what it does.

The only functional difference between the preceding example for yield and the below example for emit is that using emit lets the interpreter get to that final print statement.
```
#
# For example, create a new Array ($quoted) containing quoted elements
# from the original, omitting items which aren't wanted.
#
my $quoted = $array->collect( sub ( Any $item ) {
  print "Have item: $item\n";

  return if $item =~ /donotwant/;

  emit $myClass->quote($item);

  print "You will *always* get here!\n";
} );

#
# The above was a more compact way of doing this:
#
my $quoted = OP::Array->new();

for ( @{ $array } ) {
  print "Have item: $_\n";

  next if $_ =~ /donotwant/;

  $quoted->push( $myClass->quote($_) );

  print "You will *always* get here!\n";
}
```
The indexed version of collect is collectWithIndex. It provides the index integer as a second argument to the received CODE block.
```
my $new = $array->collectWithIndex( sub ( Any $item, Int $index ) {
  print "Working on item $index: $item\n";
} );
```
$self->each($sub)
$self->eachWithIndex($sub)

return, break

List iterator method. Runs $sub for each element in self; returns true on success.

Just as in collect, return skips to the next iteration, and break breaks the loop. Array elements are accessed in the same manner as collect.

my $arr = OP::Array->new( qw| foo bar rebar | );

$arr->each( sub(Str $item) {
  print "Have item: $item\n";
} );

#
# Expected output:
#
# Have item: foo
# Have item: bar
# Have item: rebar
#

The indexed version of each is eachWithIndex. It provides the index integer as a second argument to the received CODE block.

$array->eachWithIndex( sub ( Any $item, Int $index ) {
  print "Have item $index: $item\n";
} );

#
# Expected output:
#
# Have item 0: foo
# Have item 1: bar
# Have item 2: rebar
#

$self->join($joinStr)

Object wrapper for Perl's built-in join() function. Functionally the same as join($joinStr, @{ $self }).
```
my $array = OP::Array->new( qw| foo bar | );

my $string = $array->join(','); # returns "foo,bar"
```

$self->compact()

Removes any undefined elements from self.

my $array = OP::Array->new( 'foo', undef, 'bar' );

$array->compact(); # Array becomes ('foo', 'bar')

$self->unshift()

Object wrapper for Perl's built-in unshift() function. Functionally the same as unshift(@{ $self }).
```
my $array = OP::Array->new('bar');

$array->unshift('foo'); # Array becomes ('foo', 'bar')
```

$self->rand()

Returns a pseudo-random array element.

my $array = OP::Array->new( qw| heads tails | );

my $flip = $array->rand(); # Returns 'heads' or 'tails' randomly

$self->isEmpty()

Returns a true value if self contains no values, otherwise false.

my $array = OP::Array->new();

if ( $self->isEmpty() ) {
  print "Foo\n";
}

$array->push('anything');

if ( $self->isEmpty() ) {
  print "Bar\n";
}

#
# Expected Output:
#
# Foo
#

$self->includes($value)

Returns a true value if self includes the received value, otherwise false.

my $array = OP::Array->new( qw| foo bar | );

for my $key ( qw| foo bar rebar | ) {
  next if $array->includes($key);

  print "$key does not belong here.\n";
}

#
# Expected output:
#
# rebar does not belong here.
#

$self->grep($expression, [$mod])

Returns an array of scalar matches if the expression has any hits in the array. Wrapper for Perl's built-in grep() function.

The second argument is an optional regex modifier string (e.g. "i", "gs", "gse", etc).
```
my $array = OP::Array->new( qw| Jimbo Jimbob chucky | );

for ( @{ $array->grep(q/^jim/, "i") } ) {
  print "Matched $_\n";
};

#
# Expected output:
#
# Matched Jimbo
# Matched Jimbob
#
```

$self->clear()

Removes all items, leaving self with zero array elements.

my $array = OP::Array->new( qw| foo bar | );

my $two = $array->size(); # 2

$array->clear();

my $zero = $array->size(); # 0

$self->purge()

Explicitly purges each item in self, leaving self with zero array elements.

Useful in cases of arrays of CODE references, which are not otherwise cleaned up by Perl's GC.

$self->average()

Returns the average of all items in self.

my $arr = OP::Array->new( qw|
 54343 645564 89890 32 342 564564
| );

my $average = $arr->average();

print "Avg: $average\n"; # Avg: 225789.166666667

$self->median()

Returns the median value of all items in self.

my $arr = OP::Array->new( qw|
 54343 645564 89890 32 342 564564
| );

my $median = $arr->median();

print "Med: $median\n"; # Med: 89890

$self->max()

Returns the highest value of all items in self.

my $arr = OP::Array->new( qw|
 54343 645564 89890 32 342 564564
| );

my $max = $arr->max();

print "Max: $max\n"; # Max: 645564

$self->min()

Returns the lowest value of all items in self.

my $arr = OP::Array->new( qw|
 54343 645564 89890 32 342 564564
| );
 
my $min = $arr->min();

print "Min: $min\n"; # Min: 32

$self->sum()

Returns the sum of all items in self.

my $arr = OP::Array->new( qw|
 54343 645564 89890 32 342 564564
| );

my $sum = $arr->sum();

print "Sum: $sum\n"; # Sum: 1354735

$self->sort([$function])

Wrapper to Perl's built-in sort function.

Accepts an optional argument, a sort function to be used. Sort function should take $a and $b as arguments.
```
my $alphaSort = $self->sort();

my $numSort = $self->sort(sub{ shift() <=> shift() });
```

$self->first()

Returns the first item in the array. Same as $self->[0].

my $array = OP::Array->new( qw| alpha larry omega | );

print $array->first();
print "\n";

# Prints "alpha\n"

$self->last()

Returns the final item in the array. Same as $self->[-1].

my $array = OP::Array->new( qw| alpha larry omega | );

print $array->last();
print "\n";

# Prints "omega\n"

$self->uniq();

Returns a copy of self with duplicate elements removed.

$self->pop()

Object wrapper for Perl's built-in pop() function. Functionally the same as pop(@{ $self }).

my $array = OP::Array->new( qw| foo bar rebar | );

while ( my $element = $array->pop() ) {
  print "Popped $element\n";
}

if ( $array->isEmpty() ) { print "Now it's empty!\n"; }

#
# Expected output (note reversed order):
#
# Popped rebar
# Popped bar
# Popped foo
# Now it's empty!
#

$self->shift()

Object wrapper for Perl's built-in shift() function. Functionally the same as shift(@{ $self }).

my $array = OP::Array->new( qw| foo bar | );

while( my $element = $array->shift() ) {
  print "Shifted $element\n";
}

if ( $array->isEmpty() ) {
  print "Now it's empty!\n";
}

#
# Expected output:
#
# Shifted foo
# Shifted bar
# Now it's empty!
#

VERSION

$Id: //depotit/tools/source/snitchd-0.20/lib/OP/Array.pm#16 $

To install UNIVERSAL, copy and paste the appropriate command in to your terminal.

cpanm

cpanm UNIVERSAL

CPAN shell

perl -MCPAN -e shell
install UNIVERSAL

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)