Changeset 28277 for lang/perl/MouseX-Log-Dispatch-Config/trunk/lib/MouseX/Log/Dispatch/Config.pm

Timestamp:

01/11/09 01:47:14 (4 years ago)

Author:

masaki

Message:

POD

Files:

• lang/perl/MouseX-Log-Dispatch-Config/trunk/lib/MouseX/Log/Dispatch/Config.pm (modified) (1 diff)

lang/perl/MouseX-Log-Dispatch-Config/trunk/lib/MouseX/Log/Dispatch/Config.pm

@@ -43 +43 @@
 =head1 SYNOPSIS
 
-    paclage MyLogger;
+    package MyLogger;
     use MouseX::Log::Dispatch::Config;
 
+    # file-based (AppConfig style)
+    has '+config' => (default => '/path/to/log.cfg');
+
+    package HashLogger;
+    use MouseX::Log::Dispatch::Config;
+
+    # hash-based
+    has '+config' => (default => sub {
+        {
+            class     => 'Log::Dispatch::Screen',
+            min_level => 'debug',
+            stderr    => 1,
+            format    => '[%p] %m at %F line %L%n',
+        }
+    });
+
+    package CustomLogger;
+    use MouseX::Log::Dispatch::Config;
+    use Log::Dispatch::Configurator::YAML;
+
+    # custom configurator
+    has '+config' => (default => sub {
+        Log::Dispatch::Configurator::YAML->new('/path/to/log.yml');
+    });
+
+    package main;
+
+    my $log = MyLogger->new;
+
+    $log->debug('foo');
+    $log->logger->debug('bar'); # also works
+
+    $log->info('baz');
+    $log->error('error');
+
 =head1 DESCRIPTION
+
+This is a role which provides a L<Log::Dispatch::Config> logger.
+
+=head1 METHODS
+
+=head2 log
+
+=head2 debug
+
+=head2 info
+
+=head2 notice
+
+=head2 warning
+
+=head2 error
+
+=head2 critical
+
+=head2 alert
+
+=head2 emergency
+
+=head1 PROPERTIES
+
+=head2 logger
+
+Returns a L<Log::Dispatch::Config> object.
+
+=head2 config
 
 =head1 AUTHOR