Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
1234567891011121314151617 package HTTP::MobileAttribute::Request::Apache;use strict;use warnings;use Scalar::Util qw/blessed/;sub new { my ($class, $stuff) = @_; return bless { r => $stuff }, __PACKAGE__; }sub get { my ($self, $header) = @_; return $self->{r}->header_in($header);}1;
package
HTTP::MobileAttribute::Request::Apache;
use
strict;
warnings;
Scalar::Util
qw/blessed/
;
sub
new {
my
(
$class
,
$stuff
) =
@_
return
bless
{
r
=>
}, __PACKAGE__;
}
get {
$self
$header
->{r}->header_in(
);
1;