package Sledge::HTTPSession::Response;
use strict;
use warnings;
# wrapper class
sub new {
my ( $class, $r ) = @_;
bless { r => $r }, $class;
}
sub header {
my ( $self, $key, $val ) = @_;
$self->{r}->header_out( $key, $val );
}
1;