/usr/local/CPAN/Pangloss/Pangloss/Segment/Request/GetUser.pm

• package Pangloss::Segment::Request::GetUser
  • dispatch
• EOF

package Pangloss::Segment::Request::GetUser;

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_user} = 1;
}

1;