BEGIN {
	package PerlX::qm;
	no thanks;
	sub import {
		my ($me, $name) = @_;
		require Module::Runtime;
		require PerlX::QuoteOperator;
		PerlX::QuoteOperator->new->import($name || "qm", {
			-parser => 1,
			-with => sub ($) {
				Module::Runtime::use_module(grep /\w/, split /\s/, $_[0])
			},
		}, scalar caller);
	}
};

use 5.010;
use strict;
use warnings;
use PerlX::qm;

say qm( Math::BigInt 1.000 )->new('4660')->as_hex;
say qm( Math::BigFloat )->new('74565')->as_hex;