FS/FS/Mason/StandaloneRequest.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

package FS::Mason::StandaloneRequest;

use strict;
use warnings;
use base 'FS::Mason::Request';

sub new {
  my $class = shift;

  $class->alter_superclass('HTML::Mason::Request');

  #huh... shouldn't alter_superclass take care of this for us?
  __PACKAGE__->valid_params( %{ HTML::Mason::Request->valid_params() } );

  my %opt = @_;
  #its already been altered# $class->freeside_setup($opt{'comp'}, 'standalone');
  FS::Mason::Request->freeside_setup($opt{'comp'}, 'standalone');

  $class->SUPER::new(@_);

}

# fake this up for UI testing
sub redirect {
  my $self = shift;
  if (scalar(@_)) {
    $self->{_redirect} = shift;
  }
  return $self->{_redirect};
}

1;