MojoX-Session

 view release on metacpan or  search on metacpan

lib/MojoX/Session/Store.pm  view on Meta::CPAN

use base 'Mojo::Base';

require Carp;

__PACKAGE__->attr(is_async => 0);
__PACKAGE__->attr('error');

sub create { Carp::croak('Method "create" not implemented by subbclass') }

sub update { Carp::croak('Method "update" not implemented by subbclass') }

sub load { Carp::croak('Method "load" not implemented by subbclass') }

sub delete { Carp::croak('Method "delete" not implemented by subbclass') }

1;
__END__

=head1 NAME

lib/MojoX/Session/Store/Couchdb.pm  view on Meta::CPAN

    if ($body->{error}) {
        $self->error($body->{error});
        return $cb->($self);
    }

    $self->_rev($body->{_rev});

    return $cb->($self);
}

sub update {
    my ($self, $sid, $expires, $data, $cb) = @_;

    $self->error('');

    $data =
      $self->_encode_json({data => $data, expires => $expires, _rev => $self->_rev});
    return $cb->($self) unless $data;

    my $url = $self->_build_url($sid);

lib/MojoX/Session/Store/Dbi.pm  view on Meta::CPAN

    my $data_column    = $self->data_column;

    my $sth = $self->dbh->prepare(<<"");
    INSERT INTO $table ($sid_column,$expires_column,$data_column) VALUES (?,?,?)

    return unless $sth;

    return $sth->execute($sid, $expires, $data);
}

sub update {
    my ($self, $sid, $expires, $data) = @_;

    $data = encode_base64(nfreeze($data)) if $data;

    my $table          = $self->table;
    my $sid_column     = $self->sid_column;
    my $expires_column = $self->expires_column;
    my $data_column    = $self->data_column;

    my $sth = $self->dbh->prepare(<<"");

lib/MojoX/Session/Store/Dbic.pm  view on Meta::CPAN

    my $data_column    = $self->data_column;

    return $resultset->create(
        {   $sid_column     => $sid,
            $expires_column => $expires,
            $data_column    => $data,
        }
    ) ? 1 : 0;
}

sub update {
    my ($self, $sid, $expires, $data) = @_;

    $data = encode_base64(nfreeze($data)) if $data;

    my $resultset      = $self->resultset;
    my $sid_column     = $self->sid_column;
    my $expires_column = $self->expires_column;
    my $data_column    = $self->data_column;

    my $set = $resultset->search({$sid_column => $sid});

t/lib/MojoX/Session/Store/Dummy.pm  view on Meta::CPAN

    $self->sessions->{$sid} = {expires => $expires, data => $data};
}

sub load {
    my ($self, $sid) = @_;

    return ($self->sessions->{$sid}->{expires}, $self->sessions->{$sid}->{data});
}

sub update {
    my ($self, $sid, $expires, $data) = @_;

    $self->sessions->{$sid} = {expires => $expires, data => $data};
}

sub delete {
    my ($self, $sid) = @_;

    delete $self->sessions->{$sid};
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan