/usr/lib/perl5/APR/Request/Cookie.pm is in libapache2-request-perl 2.13-3ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | #
# /*
# * *********** WARNING **************
# * This file generated by My::WrapXS/2.13
# * Any changes made here will be lost
# * ***********************************
# * 1. /usr/share/perl5/ExtUtils/XSBuilder/WrapXS.pm:52
# * 2. /usr/share/perl5/ExtUtils/XSBuilder/WrapXS.pm:2069
# * 3. Makefile.PL:193
# */
#
package APR::Request::Cookie;
require DynaLoader ;
use strict;
use warnings FATAL => 'all';
use vars qw{$VERSION @ISA} ;
push @ISA, 'DynaLoader' ;
$VERSION = '2.13';
bootstrap APR::Request::Cookie $VERSION ;
package APR::Request::Cookie;
use APR::Request;
sub new {
my ($class, $pool, %attrs) = @_;
my $name = delete $attrs{name};
my $value = delete $attrs{value};
$name = delete $attrs{-name} unless defined $name;
$value = delete $attrs{-value} unless defined $value;
return unless defined $name and defined $value;
my $cookie = $class->make($pool, $name, $class->freeze($value));
while(my ($k, $v) = each %attrs) {
$k =~ s/^-//;
$cookie->$k($v);
}
return $cookie;
}
sub freeze { return $_[1] }
sub thaw { return shift->value }
1;
__END__
|