File Coverage

blib/lib/Apache/Session/Browseable/File.pm

Criterion	Covered	Total	%
statement	55	58	94.8
branch	10	14	71.4
condition	2	6	33.3
subroutine	11	11	100.0
pod	0	2	0.0
total	78	91	85.7

package Apache::Session::Browseable::File;

use strict;

use Apache::Session;
use Apache::Session::Lock::File;
use Apache::Session::Browseable::Store::File;
use Apache::Session::Generate::SHA256;
use Apache::Session::Serialize::JSON;
use Apache::Session::Browseable::_common;

use constant SL => ( $^O and $^O =~ /(?:MSWin|Windows)/i ? '\\' : '/' );

our $VERSION = '1.3.5';
our @ISA     = qw(Apache::Session Apache::Session::Browseable::_common);

sub populate {
    my $self = shift;

    $self->{object_store} = new Apache::Session::Browseable::Store::File $self;
    $self->{lock_manager} = new Apache::Session::Lock::File $self;
    $self->{generate}     = \&Apache::Session::Generate::SHA256::generate;
    $self->{validate}     = \&Apache::Session::Generate::SHA256::validate;
    $self->{serialize}    = \&Apache::Session::Serialize::JSON::serialize;
    $self->{unserialize}  = \&Apache::Session::Serialize::JSON::unserialize;

    return $self;
}

sub DESTROY {
    my $self = shift;

    $self->save;
    $self->{object_store}->close;
    $self->release_all_locks;
}

sub get_key_from_all_sessions {
    my ( $class, $args, $data ) = @_;
    $args->{Directory} ||= $Apache::Session::Store::File::Directory;

    unless ( opendir DIR, $args->{Directory} ) {
        die "Cannot open directory $args->{Directory}\n";
    }
    my @t =
      grep { -f $args->{Directory} . SL . $_ and /^[A-Za-z0-9@\-]+$/ }
      readdir(DIR);
    closedir DIR;
    my %res;
    for my $f (@t) {
        eval {
            open F, $args->{Directory} . SL . $f or die $!;
            my $row = join '', ;
            if ( ref($data) eq 'CODE' ) {
                $res{$f} =
                  &$data( &Apache::Session::Serialize::JSON::_unserialize($row),
                    $f );
            }
            elsif ($data) {
                $data = [$data] unless ( ref($data) );
                my $tmp = &Apache::Session::Serialize::JSON::_unserialize($row);
                $res{$f}->{$_} = $tmp->{$_} foreach (@$data);
            }
            else {
                $res{$f} =
                  &Apache::Session::Serialize::JSON::_unserialize($row);
            }
        };
        if ($@) {
            print STDERR "Error in session $f: $@\n";
            delete $res{$f};
        }
    }
    return \%res;
}

1;
__END__