Jonathan Rockway > Collection-Categorized > Collection::Categorized

Download:
Collection-Categorized-0.01.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.01   Source  

NAME ^

Collection::Categorized - categorize and organize a collection of data

SYNOPSIS ^

  use Collection::Categorized;

  # create a collection where elements are categorized by
  # the class they are in
  my $cc = Collection::Categorized->new( sub { ref $_ } );

  # add some data
  $foo->{awesomeness} = 42;
  $cc->add($foo); # $foo isa Foo
  $cc->add($bar, $bar2); # $bars are Bars
  $cc->add(@bazs); # @bazs are Bazs

  # see what we have
  my @c = $cc->categories; # (Foo, Bar, Baz) 

  # get the data by category  
  my @foos = $cc->get('Foo'); # ($foo)
  my @bars = $cc->get('Bar'); # ($bar, $bar2)
  my @HOOO = $cc->get('HOOO'); # undef

  # grep the data
  $cc->edit(sub { grep { defined $_->{awesomeness} } @_ });
  @foos = $cc->get('Foo'); # ($foo)
  @bars = $cc->get('Bar'); # ()
  @HOOO = $cc->get('HOOO'); # undef

DESCRIPTION ^

The idea is that, given a list of junk, you want to find order in the chaos. Write some categorizers (see below), dump your data in, and get it out in some sort of meaningful order.

METHODS ^

new($coderef)

Create a categorized collection that categorizes its members by the return value of $coderef. Coderef is run with $_ aliased to the element to categorize.

new([ category => $condition, ... ])

Create a categorized collection that categorizes its members based on the passed category definition list. Example:

  new([ positive => sub { $_ <  0 },
        zero     => sub { $_ == 0 },
        negative => sub { $_ >  0 },
      ]);

This example creates three categories. The conditions are run in order, and the first condition to match decides the category that element is in. If an element doesn't match any of the three blocks (unlikely in this case), then it is silently discarded. If you want some sort of fallback, just add a condition that always matches (like sub { 1 }).

Note that you're passing an arrayref, not a hashref, because we want to preserve order.

categories

Returns a list of categories in use

add($object)

Add an object to the collection.

get($type)

Gets all elements of a certain type

all

Get every element in the collection

edit(sub { change @_ })

Given a a subref, apply it to every type and change the members of the type to be the return value of the sub.

Example:

   # Input: ( category => data )
   #   { foo => [ 1 2 3 ],
   #     bar => [ 3 2 1 ],
   #   }

  $collection->edit( sub { reverse @_ } );

   # Output:
   #   { foo => [ 3 2 1 ],
   #     bar => [ 1 2 3 ],
   #   }

AUTHOR ^

Jonathan Rockway jrockway AT cpan.org Jeremy Wall zaphar AT cpan.org

We wrote this for work. Now you can have it too.

COPYRIGHT ^

This module is probably copyright (c) 2007 by Doubleclick Performics. Despite the weird name of the copyright holder, you can use, modify, and redistribute this module under the same terms as Perl itself.

syntax highlighting: