File Coverage

blib/lib/DJabberd/Plugin/PrivateStorage/InMemoryOnly.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package DJabberd::Plugin::PrivateStorage::InMemoryOnly;
use strict;
use base 'DJabberd::Plugin::PrivateStorage';
use warnings;

=head2 load_privatestorage($self, $user,  $element)

Load the element $element for $user from memory.

=cut


sub load_privatestorage {
    my ($self, $user,  $element) = @_;
    $self->{private_storage} ||= {};
    if (exists $self->{private_storage}{$user}) {
         if (exists $self->{private_storage}{$user}{$element})
         {
             return $self->{private_storage}{$user}{$element}->as_xml();
         }
    }
    return undef;
}

=head2 store_privatestorage($self, $user,  $element, $content)

Store $content for $element and $user in memory.

=cut

sub store_privatestorage {
    my ($self, $user, $element, $content) = @_;
    $self->{private_storage} ||= {};
    $self->{private_storage}{$user}{$element} = $content;
}
1;

__END__