+0.002000 2010-02-28 17:00EST
+ - Make array references coerce to a list of outputs for Logger
0.001000 2010-02-26 07:30EST
- Initial release
\ No newline at end of file
use MooseX::Types::Moose qw/Str HashRef ArrayRef/;
use Log::Dispatch;
-our $VERSION = '0.001000';
+our $VERSION = '0.002000';
subtype LogLevel,
as Str,
coerce Logger,
from ArrayRef,
- via { Log::Dispatch->new( @$_ ) };
+ via { Log::Dispatch->new( outputs => $_ ) };
1;
__END__;
-
=head1 NAME
MooseX::Types::Log::Dispatch - L<Log::Dispatch> related constraints and coercions for
my $obj1 = MyFoos->new(
event_log_level => 'debug',
- logger => [ outputs => [ ['Screen', min_level => 'notice' ] ] ]
+ logger => [ ['Screen', min_level => 'notice' ] ]
);
## or
=head2 Logger
-Class type for 'Log::Dispatch' optional coercion will turn dereference an
-array or hash reference and pass it to 'new'.
+Class type for 'Log::Dispatch' optional coercion will turn dereference a
+hash reference and pass it to 'new' or treat an array reference as a list
+of C<outputs>.
=head2 LogLevel
lives_ok {
$obj1 = TestMXTypesLogDispatch->new(
event_log_level => 'debug',
- logger => [ outputs => [ ['Null', min_level => 'notice' ] ] ]
+ logger => [ ['Null', min_level => 'notice' ] ]
);
} 'coerces ok';