The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Catmandu::Store::Multi::Bag;

use Catmandu::Sane;

our $VERSION = '1.0504';

use Catmandu::Hits;
use Moo;
use namespace::clean;

with 'Catmandu::Bag';

sub generator {
    my ($self) = @_;
    $self->store->stores->[0]->bag($self->name)->generator;
}

sub get {
    my ($self, $id) = @_;
    $self->store->stores->[0]->bag($self->name)->get($id);
}

sub add {
    my ($self, $data) = @_;
    for my $store (@{$self->store->stores}) {
        $store->bag($self->name)->add($data);
    }
}

sub delete {
    my ($self, $id) = @_;
    for my $store (@{$self->store->stores}) {
        $store->bag($self->name)->delete($id);
    }
}

sub delete_all {
    my ($self) = @_;
    for my $store (@{$self->store->stores}) {
        $store->bag($self->name)->delete_all;
    }
}

sub drop {
    my ($self) = @_;
    for my $store (@{$self->store->stores}) {
        $store->bag($self->name)->drop;
    }
}

sub commit {
    my ($self) = @_;
    for my $store (@{$self->store->stores}) {
        $store->bag($self->name)->commit;
    }
}

1;

__END__

=pod

=head1 NAME

Catmandu::Store::Multi::Bag - Bag implementation for the Multi store

=cut