Bivio::Test::Reply
# Copyright (c) 2002-2014 bivio Software, Inc. All Rights Reserved.
# $Id$
package Bivio::Test::Reply;
use strict;
use Bivio::Base 'Agent.Reply';
sub send_append_header {
shift;
return b_use('AgentHTTP.Reply')->send_append_header(@_);
}
sub set_cache_private {
my($self) = @_;
$self->put(cache_private => 1);
return;
}
1;