Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

32 lines (25 sloc) 0.575 kb
#!perl
use strict;
use warnings;
use Test::More tests => 5;
use String::Flogger qw(flog);
is(
flog('simple!'),
'simple!',
);
is(
flog([ 'slightly %s complex', 'more' ]),
'slightly more complex',
);
is(
flog([ 'and inline some data: %s', { look => 'data!' } ]),
'and inline some data: {{{"look": "data!"}}}',
);
is(
flog([ 'and we can defer evaluation of %s if we want', sub { 'stuff' } ]),
'and we can defer evaluation of stuff if we want',
);
is(
flog(sub { 'while avoiding sprintfiness, if needed' }),
'while avoiding sprintfiness, if needed',
);
Jump to Line
Something went wrong with that request. Please try again.