File Coverage

blib/lib/Venus/Role/Mappable.pm

Criterion	Covered	Total	%
statement	32	50	64.0
branch	18	36	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	56	95	58.9

package Venus::Role::Mappable;

use 5.018;

use strict;
use warnings;

use Venus::Role 'fault';

# AUDIT

sub AUDIT {
  my ($self, $from) = @_;

  my $name = ref $self || $self;

  if (!$from->can('all')) {
    fault "${from} requires 'all' to consume ${name}";
  }

  if (!$from->can('any')) {
    fault "${from} requires 'any' to consume ${name}";
  }

  if (!$from->can('call')) {
    fault "${from} requires 'call' to consume ${name}";
  }

  if (!$from->can('count')) {
    fault "${from} requires 'count' to consume ${name}";
  }

  if (!$from->can('delete')) {
    fault "${from} requires 'delete' to consume ${name}";
  }

  if (!$from->can('each')) {
    fault "${from} requires 'each' to consume ${name}";
  }

  if (!$from->can('empty')) {
    fault "${from} requires 'empty' to consume ${name}";
  }

  if (!$from->can('exists')) {
    fault "${from} requires 'exists' to consume ${name}";
  }

  if (!$from->can('grep')) {
    fault "${from} requires 'grep' to consume ${name}";
  }

  if (!$from->can('iterator')) {
    fault "${from} requires 'iterator' to consume ${name}";
  }

  if (!$from->can('keys')) {
    fault "${from} requires 'keys' to consume ${name}";
  }

  if (!$from->can('map')) {
    fault "${from} requires 'map' to consume ${name}";
  }

  if (!$from->can('none')) {
    fault "${from} requires 'none' to consume ${name}";
  }

  if (!$from->can('one')) {
    fault "${from} requires 'one' to consume ${name}";
  }

  if (!$from->can('pairs')) {
    fault "${from} requires 'pairs' to consume ${name}";
  }

  if (!$from->can('random')) {
    fault "${from} requires 'random' to consume ${name}";
  }

  if (!$from->can('reverse')) {
    fault "${from} requires 'reverse' to consume ${name}";
  }

  if (!$from->can('slice')) {
    fault "${from} requires 'slice' to consume ${name}";
  }

  return $self;
}

1;



=head1 NAME

Venus::Role::Mappable - Mappable Role

=cut

=head1 ABSTRACT

Mappable Role for Perl 5

=cut

=head1 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;

=cut

=head1 DESCRIPTION

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

=cut

=head1 METHODS

This package provides the following methods:

=cut

=head2 all

  all(coderef $code) (boolean)

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

I>

=over 4

=item all example 1

  # given: synopsis;

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

=back

=cut

=head2 any

  any(coderef $code) (boolean)

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




I>

=over 4

=item any example 1

  # given: synopsis;

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

=back

=cut

=head2 count

  count() (number)

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




I>

=over 4

=item count example 1

  # given: synopsis;

  my $count = $example->count;

=back

=cut

=head2 delete

  delete(string $key) (any)

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




I>

=over 4

=item delete example 1

  # given: synopsis;

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

=back

=cut

=head2 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.




I>

=over 4

=item each example 1

  # given: synopsis;

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

=back

=cut

=head2 empty

  empty() (Value)

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




I>

=over 4

=item empty example 1

  # given: synopsis;

  my $empty = $example->empty;

=back

=cut

=head2 exists

  exists(string $key) (boolean)

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




I>

=over 4

=item exists example 1

  # given: synopsis;

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

=back

=cut

=head2 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.




I>

=over 4

=item grep example 1

  # given: synopsis;

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

=back

=cut

=head2 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.




I>

=over 4

=item iterator example 1

  # given: synopsis;

  my $iterator = $example->iterator;

=back

=cut

=head2 keys

  keys() (arrayref)

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




I>

=over 4

=item keys example 1

  # given: synopsis;

  my $keys = $example->keys;

=back

=cut

=head2 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.




I>

=over 4

=item map example 1

  # given: synopsis;

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

=back

=cut

=head2 none

  none(coderef $code) (boolean)

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




I>

=over 4

=item none example 1

  # given: synopsis;

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

=back

=cut

=head2 one

  one(coderef $code) (boolean)

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.




I>

=over 4

=item one example 1

  # given: synopsis;

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

=back

=cut

=head2 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.




I>

=over 4

=item pairs example 1

  # given: synopsis;

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

=back

=cut

=head2 random

  random() (any)

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




I>

=over 4

=item random example 1

  # given: synopsis;

  my $random = $example->random;

=back

=cut

=head2 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.




I>

=over 4

=item reverse example 1

  # given: synopsis;

  my $reverse = $example->reverse;

=back

=cut

=head2 slice

  slice(string @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.




I>

=over 4

=item slice example 1

  # given: synopsis;

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

=back

=cut

=head1 AUTHORS

Awncorp, C

=cut

=head1 LICENSE

Copyright (C) 2000, Awncorp, C.

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

=cut