Yet Another CPAN Grep

Business-Shipping-MRW ( H/HD/HDELGADO/Business-Shipping-MRW-0.02.tar.gz, HDELGADO, 2015; MetaCPAN )

Business-Shipping-MRW/lib/Business/Shipping/MRW.pm ( view source; MetaCPAN )


use Data::Dumper;
use Mojo::UserAgent;
use Time::HiRes 'gettimeofday';
use POSIX 'strftime';
use JSON::XS;
use MIME::Base64;
use XML::Simple;

use feature 'say';

=head1 VERSION

Version 0.02

=cut

pping::MRW;

    my $MRW = Business::Shipping::MRW->new();

    my $Info = $E->TransmEnvio('envio.json');

    my $PDF = $E->EtiquetaEnvio($Info->{NumeroEnvio});


=head1 EXPORT

A list of functions t


=cut
sub new {
    my $class = shift;
    my $file  = shift;
    my $self;

    my $config = OpenJSON($file);
    
    map { $self->{mrw}->{$_} = $config->{$_} } keys %{ $config };

    $self->{error