File Coverage

blib/lib/Data/Localize/Storage/MongoDB.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Data::Localize::Storage::MongoDB;
use Any::Moose;
use MongoDB;

with 'Data::Localize::Storage';

has 'database'   => ( is => 'ro', isa => 'MongoDB::Database', required => 1 );
has 'collection' => (
    is      => 'ro',
    isa     => 'MongoDB::Collection',
    lazy    => 1,
    default => sub {
        my $self = shift;
        $self->database->get_collection( $self->lang );
    }
);

sub is_volitile { 0 }

sub get {
    my ( $self, $key ) = @_;
    my $result = $self->collection->find_one({ _id => $key });
    return () unless $result;
    return $result->{'msg'};
}

sub set {
    my ( $self, $key, $value ) = @_;
    $self->collection->save({ _id => $key, msg => $value }, { safe => 1 });
    return;
}

__PACKAGE__->meta->make_immutable();

no Any::Moose; 1;

# ABSTRACT: A MongoDB storage backend for Data::Localize


__END__
=pod

=head1 NAME

Data::Localize::Storage::MongoDB - A MongoDB storage backend for Data::Localize

=head1 VERSION

version 0.001

=head1 SYNOPSIS

  use Data::Localize::Storage::MongoDB;

  my $conn =  MongoDB::Connection->new( host => 'localhost' );

  my $loc = Data::Localize->new;
  $loc->add_localizer(
      class         => 'Gettext',
      path          => 't/001-basic/*.po',
      storage_class => 'MongoDB',
      storage_args  => {
          database => $conn->get_database('i18n')
      }
  );

  $loc->set_languages('ja');
  print $loc->localize('Hello, stranger!', '牧大輔');

  $loc->set_languages('en');
  print $loc->localize_for('Hello, stranger!', 'Stevan');

=head1 DESCRIPTION

This is a simple L<MongoDB> storage backend for L<Data::Localize>.

=head1 METHODS

=head2 get

This is used internally by L<Data::Localize>.

=head2 set

This is used internally by L<Data::Localize>.

=head1 AUTHOR

Stevan Little <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Infinity Interactive, Inc..

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut