#!/usr/bin/env perl
use
Test2::V0;
use
Log::Any::Adapter;
use
Sys::Hostname;
ok(Log::Any::Adapter->set(
'LinuxJournal'
,
app_id
=>
'testapp5000'
));
ok
$log
->info(
'starting up'
);
ok
$log
->debugf(
'connecting to db at "%s:5432"'
, hostname);
ok
$log
->info(
'logging user in'
,
{
user
=>
'bob'
,
action
=>
'login'
,
ip
=>
'54.54.54.54'
});
ok
$log
->error(
'database error'
,
{
user
=>
'alice'
,
action
=>
'account_update'
,
ip
=>
'12.34.56.78'
});
done_testing;