Jonathan Rockway
and 1 contributors

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.