File Coverage

blib/lib/KiokuDB/Error/MissingObjects.pm

Criterion	Covered	Total	%
statement	17	21	80.9
branch	1	2	50.0
condition			n/a
subroutine	5	6	83.3
pod	0	3	0.0
total	23	32	71.8

package KiokuDB::Error::MissingObjects;
use Moose;

use namespace::clean -except => "meta"; # autoclean kills overloads

use overload '""' => "as_string";

with qw(KiokuDB::Error);

has ids => (
    isa => "ArrayRef[Str]",
    reader => "_ids",
    required => 1,
);

sub ids { @{ shift->_ids } }

sub as_string {
    my $self = shift;

    local $, = ", ";
    return "Objects missing in database: @{ $self->_ids }";
}

sub missing_ids_are {
    my ( $self, @ids ) = @_;

    my %ids = map { $_ => 1 } $self->ids;

    foreach my $id ( @ids ) {
        return unless delete $ids{$id};
    }

    return ( keys(%ids) == 0 )
}

__PACKAGE__->meta->make_immutable;

# ex: set sw=4 et:

__PACKAGE__

__END__