NAME

Venus::Role::Mappable - Mappable Role

ABSTRACT

Mappable Role for Perl 5

SYNOPSIS

  package Example;

  use Venus::Class;

  with 'Venus::Role::Mappable';

  sub all;
  sub any;
  sub call;
  sub count;
  sub delete;
  sub each;
  sub empty;
  sub exists;
  sub grep;
  sub iterator;
  sub keys;
  sub map;
  sub none;
  sub one;
  sub pairs;
  sub random;
  sub reverse;
  sub slice;

  package main;

  my $example = Example->new;

  # $example->random;

DESCRIPTION

This package provides a specification for the consuming package to implement methods that makes the object mappable. See Venus::Array and Venus::Hash as other examples of mappable classes.

METHODS

This package provides the following methods:

all

  all(CodeRef $code) (Bool)

The all method should return true if the callback returns true for all of the elements provided.

Since 0.01

all example 1

  # given: synopsis;

  my $all = $example->all(sub {
    # ...
  });

any

  any(CodeRef $code) (Bool)

The any method should return true if the callback returns true for any of the elements provided.

Since 0.01

any example 1

  # given: synopsis;

  my $any = $example->any(sub {
    # ...
  });

count

  count() (Num)

The count method should return the number of top-level element in the data structure.

Since 0.01

count example 1

  # given: synopsis;

  my $count = $example->count;

delete

  delete(Str $key) (Any)

The delete method returns should remove the item in the data structure based on the key provided, returning the item.

Since 0.01

delete example 1

  # given: synopsis;

  my $delete = $example->delete(...);

each

  each(CodeRef $code) (ArrayRef)

The each method should execute the callback for each item in the data structure passing the key and value as arguments.

Since 0.01

each example 1

  # given: synopsis;

  my $results = $example->each(sub {
    # ...
  });

empty

  empty() (Value)

The empty method should drop all items from the data structure.

Since 0.01

empty example 1

  # given: synopsis;

  my $empty = $example->empty;

exists

  exists(Str $key) (Bool)

The exists method should return true if the item at the key specified exists, otherwise it returns false.

Since 0.01

exists example 1

  # given: synopsis;

  my $exists = $example->exists(...);

grep

  grep(CodeRef $code) (ArrayRef)

The grep method should execute a callback for each item in the array, passing the value as an argument, returning a value containing the items for which the returned true.

Since 0.01

grep example 1

  # given: synopsis;

  my $results = $example->grep(sub {
    # ...
  });

iterator

  iterator() (CodeRef)

The iterator method should return a code reference which can be used to iterate over the data structure. Each time the iterator is executed it will return the next item in the data structure until all items have been seen, at which point the iterator will return an undefined value.

Since 0.01

iterator example 1

  # given: synopsis;

  my $iterator = $example->iterator;

keys

  keys() (ArrayRef)

The keys method should return an array reference consisting of the keys of the data structure.

Since 0.01

keys example 1

  # given: synopsis;

  my $keys = $example->keys;

map

  map(CodeRef $code) (ArrayRef)

The map method should iterate over each item in the data structure, executing the code reference supplied in the argument, passing the routine the value at the current position in the loop and returning an array reference containing the items for which the argument returns a value or non-empty list.

Since 0.01

map example 1

  # given: synopsis;

  my $results = $example->map(sub {
    # ...
  });

none

  none(CodeRef $code) (Bool)

The none method should return true if none of the items in the data structure meet the criteria set by the operand and rvalue.

Since 0.01

none example 1

  # given: synopsis;

  my $none = $example->none(sub {
    # ...
  });

one

  one(CodeRef $code) (Bool)

The one method should return true if only one of the items in the data structure meet the criteria set by the operand and rvalue.

Since 0.01

one example 1

  # given: synopsis;

  my $one = $example->one(sub {
    # ...
  });

pairs

  pairs(CodeRef $code) (Tuple[ArrayRef, ArrayRef])

The pairs method should return an array reference of tuples where each tuple is an array reference having two items corresponding to the key and value for each item in the data structure.

Since 0.01

pairs example 1

  # given: synopsis;

  my $pairs = $example->pairs(sub {
    # ...
  });

random

  random() (Any)

The random method should return a random item from the data structure.

Since 0.01

random example 1

  # given: synopsis;

  my $random = $example->random;

reverse

  reverse() (ArrayRef)

The reverse method should returns an array reference containing the items in the data structure in reverse order if the items in the data structure are ordered.

Since 0.01

reverse example 1

  # given: synopsis;

  my $reverse = $example->reverse;

slice

  slice(Str @keys) (ArrayRef)

The slice method should return a new data structure containing the elements in the invocant at the key(s) specified in the arguments.

Since 0.01

slice example 1

  # given: synopsis;

  my $slice = $example->slice(...);

cpanm Venus

perl -MCPAN -e shell
install Venus