Changeset 550

Show
Ignore:
Timestamp:
03/15/02 16:14:40
Author:
miyagawa
Message:

0.04

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • PHP-Session/trunk/Changes

    r549 r550  
    11Revision history for Perl extension PHP::Session 
    22 
    3 0.03 
     30.04  Fri Mar 15 16:14:32 JST 2002 
     4        * added destroy() 
     5 
     60.03  Fri Mar 15 16:01:35 JST 2002 
    47        * added session ID validation 
    58        * implemented save() 
  • PHP-Session/trunk/lib/PHP/Session.pm

    r549 r550  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = 0.03
     5$VERSION = 0.04
    66 
    77use vars qw(%SerialImpl); 
     
    8282} 
    8383 
     84sub destroy { 
     85    my $self = shift; 
     86    unlink $self->_file_path; 
     87} 
     88 
    8489# private methods 
    8590 
     
    149154  $session->save; 
    150155 
     156  # destroy session 
     157  $session->destroy; 
     158 
    151159=head1 DESCRIPTION 
    152160 
     
    172180PHP implementation. 
    173181 
     182=item * 
     183 
     184Not tested so much, thus there may be a lot of bug in 
     185(des|s)erialization code. If you find any, tell me via email. 
     186 
    174187=back 
    175188 
     
    197210=head1 SEE ALSO 
    198211 
    199 L<WDDX>, L<Apache::Session> 
     212L<WDDX>, L<Apache::Session>, L<CGI::kSession> 
    200213 
    201214=cut 
  • PHP-Session/trunk/lib/PHP/Session/Serializer/PHP.pm

    r549 r550  
    55 
    66use vars qw($VERSION); 
    7 $VERSION = 0.03
     7$VERSION = 0.04
    88 
    99sub _croak { require Carp; Carp::croak(@_) } 
  • PHP-Session/trunk/t/01_deserialize.t

    r545 r550  
    3232    is $arr->{3}->{bar}, 'ok'; 
    3333    is $arr->{3}->{yes}, 'done'; 
     34    $session->destroy; 
    3435} 
    3536 
     
    5657    is $arr->{4}, -1.2; 
    5758    is $arr->{d}, undef; 
     59    $session->destroy; 
    5860} 
    5961 
    60 END { unlink $_ for ('t/sess_1234', 't/sess_abcd'); } 
     62 
  • PHP-Session/trunk/t/04_save.t

    r549 r550  
    3636    my $php2 = PHP::Session->new($session->{sid}, { save_path => 't' }); 
    3737    is_deeply $php, $php2; 
     38    $php->destroy; 
    3839} 
    39  
    40  
    41 END { unlink $_ for ('t/sess_1234', 't/sess_abcd'); }