ssage . " at " . $_[0]->filepath . " line " . $_[0]->line . "\n";';
$META{stringify}{json} ||= 'require JSON; JSON->new->encode($_[0]->hash);';
push @methods, sprintf "sub stringify_%s { %s }", $_,
, '>', 'glitch.log';
print $fh $_[0] . "\n";
close $fh;
},
glitch_stringify_format => 'json',
one => {
message => 'Create a new glitch error message'
},
two => {
message => 'A d
s another error messsage"
}
}
package Foo;
use JSON;
use Glitch (
glitch_config => 'glitch.conf'
glitch_config_parser => sub {
JSON->new->decode($_[0]);
}
);
sub bar {
eval {