File Coverage

blib/lib/Net/MundiPagg.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package Net::MundiPagg;
$Net::MundiPagg::VERSION = '0.000001';
use Moo;
use XML::Compile::SOAP11;
use XML::Compile::WSDL11;
use XML::Compile::Transport::SOAPHTTP;

use File::ShareDir qw{ module_file };

has 'client' => (
    is      => 'ro',
    builder => sub {
        my $wsdl = module_file( ref $_[0], 'mundipagg.wsdl' );
        my $client = XML::Compile::WSDL11->new($wsdl);

        foreach my $i ( 0 .. 2 ) {
            my $xsd = module_file( ref $_[0], "schema$i.xsd" );
            $client->importDefinitions($xsd);
        }

        $client->compileCalls;

        return $client;
    },
);

our $AUTOLOAD;

## no critic (Subroutines::RequireArgUnpacking)
## no critic (ClassHierarchies::ProhibitAutoloading)
sub AUTOLOAD {
    my ( $method, $self, %args ) = ( $AUTOLOAD, @_ );

    $method =~ s/.*:://g;

    return $self->client->call( $method, %args );
}

1;

#ABSTRACT: Net::MundiPagg - Documentation coming soon :)

__END__