Source

#!/usr/bin/perlusestrict;usewarnings;useTest::Moretests=>1;useText::Sprintf::Namedqw(named_sprintf);{# TESTis(scalar(named_sprintf('Hello %(name)s!',{name=>"Sophie",})),'Hello Sophie!','named_sprintf works with an hash-ref as the parameters designator',);}