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'); # undefDESCRIPTION
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.