1#!perl 2use strict; 3use warnings; 4use Test::More tests => 6; 5use String::Flogger qw(flog); 6 7is( 8 flog([ 'foo %s bar', undef ]), 9 'foo {{null}} bar', 10 "%s <- undef", 11); 12 13is( 14 flog([ 'foo %s bar', \undef ]), 15 'foo ref({{null}}) bar', 16 "%s <- \\undef", 17); 18 19is( 20 flog([ 'foo %s bar', \1 ]), 21 'foo ref(1) bar', 22 "%s <- \\1", 23); 24 25is( 26 flog([ 'foo %s bar', \\1 ]), 27 'foo ref(ref(1)) bar', 28 "%s <- \\\\1", 29); 30 31like( 32 flog({foo => 'bar'}), 33 qr/foo.+bar/, 34 "hashref keys/values printed", 35); 36 37like( 38 flog(sub { +{foo => 'bar'} }), 39 qr/foo.+bar/, 40 "hashref keys/values printed", 41); 42