diff options
| author | Mark Wells <mark@freeside.biz> | 2016-04-26 12:10:43 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2016-04-26 12:10:51 -0700 |
| commit | cb6214a6c0b0ecc8c3a5c264ee98ff3f301c33a6 (patch) | |
| tree | 49a74db191bfd375117e1bfd34423b35c8f161a6 /FS/FS/Mason | |
| parent | bc34518143fe485eec412e709271e681a1e41aac (diff) | |
more robust testing platform, #37340
Diffstat (limited to 'FS/FS/Mason')
| -rw-r--r-- | FS/FS/Mason/StandaloneRequest.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/FS/FS/Mason/StandaloneRequest.pm b/FS/FS/Mason/StandaloneRequest.pm index a5e4dcb..e34a353 100644 --- a/FS/FS/Mason/StandaloneRequest.pm +++ b/FS/FS/Mason/StandaloneRequest.pm @@ -20,4 +20,13 @@ sub new { } +# fake this up for UI testing +sub redirect { + my $self = shift; + if (scalar(@_)) { + $self->{_redirect} = shift; + } + return $self->{_redirect}; +} + 1; |