File Coverage

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

Criterion	Covered	Total	%
statement	38	38	100.0
branch	6	6	100.0
condition	12	12	100.0
subroutine	9	9	100.0
pod	4	4	100.0
total	69	69	100.0

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

use strict;
use warnings;

use Path::Class ();
use XML::LibXML;

use OTRS::OPM::Maker -command;

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

sub usage_desc {
    return "opmbuild sopmtest ";
}

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

    $self->usage_error( 'need path to .sopm' ) if
        !$args or
        'ARRAY' ne ref $args or
        !defined $args->[0] or
        $args->[0] !~ /\.sopm\z/ or
        !-f $args->[0];
}

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

    my $file = $args->[0];

    my $check_result;
    my $tree;

    eval {
        my $parser = XML::LibXML->new;
        $tree      = $parser->parse_file( $file );
        1;
    } or do { print "Cannot parse .sopm: $@\n"; return };

    eval {
        my $xsd    = do{ local $/;  };
        my $schema = XML::LibXML::Schema->new( string => $xsd );
        $schema->validate( $tree );
        1;
    } or do {
        print ".sopm is not valid: $@\n";
        return;
    };

    return 1;
}

1;

=pod

=encoding UTF-8

=head1 NAME

OTRS::OPM::Maker::Command::sopmtest - Check if sopm is valid

=head1 VERSION

version 0.18

=head1 AUTHOR

Renee Baecker

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2017 by Renee Baecker.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut

__DATA__