Yet Another CPAN Grep

WWW-BackpackTF ( M/MG/MGV/WWW-BackpackTF-0.002001.tar.gz, MGV, 2017; MetaCPAN )

WWW-BackpackTF/lib/WWW/BackpackTF.pm ( view source; MetaCPAN )

me =~ y/A-Z0-9//cd;
		push @EXPORT_OK, $name;
		constant->import($name, $_)
	}
}

use JSON::MaybeXS qw/decode_json/;
use HTTP::Tiny;
use PerlX::Maybe;
use WWW::BackpackTF::Currency;
use WWW::BackpackT


	die $htr->{reason} unless $htr->{success}; ## no critic (RequireCarping)
	my $response = decode_json($htr->{content})->{response};
	die $response->{message} unless $response->{success}; ## no critic