—

              
# ABSTRACT: Report distributions that are missing
package Pinto::Action::Verify;
use Moose;
use MooseX::StrictConstructor;
use MooseX::MarkAsMethods ( autoclean => 1 );
use Pinto::Util qw(throw);
#------------------------------------------------------------------------------
our $VERSION = '0.14'; # VERSION
#------------------------------------------------------------------------------
extends qw( Pinto::Action );
#------------------------------------------------------------------------------
sub execute {
    my ($self) = @_;
    my $dist_rs = $self->repo->db->schema->distribution_rs;
    my $missing = 0;
    while ( my $dist = $dist_rs->next ) {
        if ( not -e $dist->native_path ) {
            $self->error("Missing distribution $dist");
            $missing++;
        }
    }
    throw("$missing archives are missing") if $missing;
    return $self->result;
}
#------------------------------------------------------------------------------
__PACKAGE__->meta->make_immutable;
#------------------------------------------------------------------------------
1;
__END__
HideShow 27 lines of Pod
=pod
=encoding UTF-8
=for :stopwords Jeffrey Ryan Thalhammer
=head1 NAME
Pinto::Action::Verify - Report distributions that are missing
=head1 VERSION
version 0.14
=head1 AUTHOR
Jeffrey Ryan Thalhammer <jeff@stratopan.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2015 by Jeffrey Ryan Thalhammer.
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