MOVYLO_API_OOP/test.pl at master · chicagoist/MOVYLO_API_OOP · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl -w

use v5.10;
use FindBin qw($Bin);
use lib "$Bin";
use DBI;

use strict;
use warnings FATAL => 'all';
use MOVYLO::MOVYLO;


my $foo = MOVYLO::MOVYLO->new();


print $foo->getToken();
#$foo->createMerchant('mailGyx@365.com', {first_name => 'Master',last_name => 'Slave',business_name => 'Master Slave', zip=>'39601'},862);
#$foo->updateMerchant();
#$foo->createStore(855);
#$foo->updateStore(864, {store_name=>'Vietnam Store Name',currency=>'VND', country=>'VN',business_name => 'Business Vietnam'});
#$foo->suspendStore(864);
#$foo->reactiveStore(864);
#$foo->deleteMerchant(856);
#$foo->updateExpireDate(86, {expireDate=>'suspend'});
#$foo->updateExpireDate(86, {expireDate=>'reactivate'});