view release on metacpan or  search on metacpan

lib/Collection/Categorized.pm  view on Meta::CPAN

                }
            }
        },
      };
    
    my $action = $dispatch->{ref $ref};
    croak 'pass an ARRAY or CODE reference only' unless $action;
    $action->();
    
    $self->{_data} = {};
    return bless $self => $class;
}

=head2 categories

Returns a list of categories in use

=cut

sub categories {
    my $self = shift;