view release on metacpan or  search on metacpan

lib/DomainOperations/ResellerClubHTTP.pm  view on Meta::CPAN

456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
 
        # check the outcome
        if ( $res->is_success ) {
                my $coder = JSON::XS->new->ascii->pretty->allow_nonref;
 
                # $pretty_printed_unencoded = $coder->encode ($perl_scalar);
                my $perl_scalar = $coder->decode( $res->content );
 
                #               print Dumper $perl_scalar;
 
                #$res->decoded_content;
                return { $self->formatdomains($perl_scalar), 'error' => 0, };
        }
        else {
 
                #               print Dumper $req;
                return { error => 1, errormessage => $res->status_line, };
        }
}
 
sub formatdomains() {