/usr/local/CPAN/HTTP-MobileAttribute/HTTP/MobileAttribute/Request/HTTPHeaders.pm

• package HTTP::MobileAttribute::Request::HTTPHeaders
  • new
  • get
• EOF

package HTTP::MobileAttribute::Request::HTTPHeaders;
use strict;
use warnings;

sub new {
    my ($class, $stuff) = @_;
    return bless { r => $stuff }, $class; 
}

sub get {
    my ($self, $header) = @_;
    return $self->{r}->header($header);
}

1;