Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
123456789101112131415 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;
package
HTTP::MobileAttribute::Request::HTTPHeaders;
use
strict;
warnings;
sub
new {
my
(
$class
,
$stuff
) =
@_
;
return
bless
{
r
=>
},
}
get {
$self
$header
->{r}->header(
);
1;