cookie.pm

来自「视频监控网络部分的协议ddns,的模块的实现代码,请大家大胆指正.」· PM 代码 · 共 51 行

# 
# /*
#  * *********** WARNING **************
#  * This file generated by My::WrapXS/2.08
#  * Any changes made here will be lost
#  * ***********************************
#  * 1. /opt/lampp/lib/perl5/site_perl/5.10.0/ExtUtils/XSBuilder/WrapXS.pm:52
#  * 2. /opt/lampp/lib/perl5/site_perl/5.10.0/ExtUtils/XSBuilder/WrapXS.pm:2068
#  * 3. Makefile.PL:146
#  */
# 


package APR::Request::Cookie;
require DynaLoader ;

use strict;
use warnings FATAL => 'all';

use vars qw{$VERSION @ISA} ;

push @ISA, 'DynaLoader' ;
$VERSION = '2.08';
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__