FS/FS/Mason/StandaloneRequest.pm

   1 package FS::Mason::StandaloneRequest;
   2
   3 use strict;
   4 use warnings;
   5 use base 'FS::Mason::Request';
   6
   7 sub new {
   8   my $class = shift;
   9
  10   $class->alter_superclass('HTML::Mason::Request');
  11
  12   #huh... shouldn't alter_superclass take care of this for us?
  13   __PACKAGE__->valid_params( %{ HTML::Mason::Request->valid_params() } );
  14
  15   my %opt = @_;
  16   #its already been altered# $class->freeside_setup($opt{'comp'}, 'standalone');
  17   FS::Mason::Request->freeside_setup($opt{'comp'}, 'standalone');
  18
  19   $class->SUPER::new(@_);
  20
  21 }
  22
  23 # fake this up for UI testing
  24 sub redirect {
  25   my $self = shift;
  26   if (scalar(@_)) {
  27     $self->{_redirect} = shift;
  28   }
  29   return $self->{_redirect};
  30 }
  31
  32 1;