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(...);

AUTHORS

Awncorp, awncorp@cpan.org

LICENSE

Copyright (C) 2000, Al Newkirk.

This program is free software, you can redistribute it and/or modify it under the terms of the Apache license version 2.0.