/usr/local/CPAN/Pangloss/Pangloss/Segment/StoreURI.pm

• package Pangloss::Segment::StoreURI
  • dispatch
• EOF

package Pangloss::Segment::StoreURI;

use URI;

use base qw( Pipeline::Segment );

our $VERSION  = ((require Pangloss::Version), $Pangloss::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.1 $ '))[2];

sub dispatch {
    my $self    = shift;
    my $request = $self->store->get('HTTP::Request') ||
                  $self->store->get('Apache::Request') ||
		  return;
    my $uri = $request->uri->clone;
    $self->emit( "saving copy of original uri" );
    # URI blesses into different sub-classes, so:
    return bless \$uri, 'OriginalURI';
}

1;