File Coverage

blib/lib/OPM/Maker/Command/sopmtest.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	7	8	87.5
condition			n/a
subroutine	10	10	100.0
pod	4	4	100.0
total	59	62	95.1

package OPM::Maker::Command::sopmtest;
$OPM::Maker::Command::sopmtest::VERSION = '1.15';
# ABSTRACT: Check if sopm is valid

use strict;
use warnings;

use Path::Class ();
use OPM::Validate;

use OPM::Maker -command;
use OPM::Maker::Utils qw(check_args_sopm);

sub abstract {
    return "check .sopm if it is valid";
}

sub usage_desc {
    return "opmbuild sopmtest ";
}

sub validate_args {
    my ($self, $opt, $args) = @_;

    my $sopm = check_args_sopm( $args, 1 );
    $self->usage_error( 'need path to .sopm' ) if
        !$sopm;
}

sub execute {
    my ($self, $opt, $args) = @_;

    my $file = check_args_sopm( $args, 1 );

    if ( !defined $file ) {
        print "No file given!";
        return;
    }

    if ( !-f $file ) {
        print "$file does not exist";
        return;
    }

    eval {
        my $content = do{ local (@ARGV, $/) = $file; <> };
        OPM::Validate->validate( $content, 1 );
        1;
    } or do {
        print ".sopm is not valid: $@\n";
        return;
    };

    return 1;
}

1;

__END__