package Pangloss::Segment::Request::GetCategory;
use base qw( Pipeline::Segment );
our $VERSION = ((require Pangloss::Version), $Pangloss::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.2 $ '))[2];
sub dispatch {
my $self = shift;
my $request = $self->store->get('OpenFrame::Request') || return;
$request->arguments->{get_category} = 1;
}
1;