Select Code to Download

        #!/bin/perl
        use Log::Painless; # sends warnings, info, and exceptions to m
+ain.log
...
        info "Logging begun";
        warn "Hello, there!"; #behaves like warn, but logs warning as 
+well.
        die  "Program done."; #behaves like die, but logs exception as
+ well.

        use Log::Painless { file => 'myscript.log', level => 'debug' }
+;

        use Log::Painless { level => 'debug' };
        
...
            debug leave;  # as enter, above, but "Left subroutine"
        }
        test_log();

        info 'Starting to connect to data source: '.$dsn;

        eval {
                $dbh = DBI->connect('dbi:SQLite2:dbname=test.db','',''
+) or
...
            warn "Falling back to CSV file..."
            # do stuff.
        }

        2006-03-14T13:21:32 4508 E (myscript.pl/11):Can't connect!
        2006-03-14T13:21:32 4508 I Caught exception [Can't connect!] 1
+ evals deep in main
        2006-03-14T13:21:32 4508 W (myscript.pl/16):Falling back to CS
+V file...

        sub test_sub {
                trace enter;
                # .. some stuff
        }

        2006-03-14T13:21:33 4509 T Entered subroutine main::test_sub

        sub test_sub {
                # .. some stuff
                trace leave;
        }

        2006-03-14T13:21:35 4509 T Left subroutine main::test_sub

        use Log::Painless { file => 'messages.log' };

        use Log::Painless { level => 'debug' }; # only trace will be s
+upressed

        use Log::Painless { shortcuts => [ 'caught' ] }; # only import
+ caught()

        Log::Painless->divert('debug' => 'debug.log');

        Log::Painless->duplicate('debug' => *STDERR);

        Log::Painless->divert('debug' => 'debug.log');
        Log::Painless->duplicate('debug' => *STDERR);

        use Log::Painless;
        {
...
              $old_warn->(@_);
           };
        }

        Date-Time PID Type-Char Message
        
With default format settings, this results in something like:

        2006-03-14T14:22:32 4856 E (testlog.pl/10):the death

        use Log::Painless {
                lineformat => sub { my $m = shift; $m=~s/^(.*?) \d+/$1
+/; return $m },
        };

package Log::Painless;

...


1;