File Coverage

blib/lib/Log/Any/Plugin/Format.pm

Criterion	Covered	Total	%
statement	31	36	86.1
branch	4	6	66.6
condition	1	3	33.3
subroutine	7	9	77.7
pod	0	1	0.0
total	43	55	78.1

package Log::Any::Plugin::Format;
# ABSTRACT: Add a formatting subroutine to your Log::Any adapter

our $VERSION = '0.02';

use strict;
use warnings;

use Log::Any::Adapter::Util qw( log_level_aliases logging_methods );
use Class::Method::Modifiers qw( install_modifier );

sub install {
    my ($class, $adapter_class, %args) = @_;

    my $formatter = sub { join ' ', @_ };
       $formatter = $args{formatter}
        if defined $args{formatter} and ref $args{formatter} eq 'CODE';

    # Create format attribute if it doesn't exist
    unless ($adapter_class->can('format')) {
        install_modifier( $adapter_class, 'fresh', format => sub {
          my ($self, $sub) = @_;

          return $formatter unless defined $sub;

          $formatter = $sub;
          return $self;
        });
    }

    my $aliases = { log_level_aliases() };

    # Format input parameters for logging methods
    for my $method ( logging_methods() ) {
        install_modifier( $adapter_class, 'around', $method => sub {
            my $orig = shift;
            my $self = shift;

            my @new = $self->format->(@_);
            return $self->$orig( @new );
        });
    }

    # Make aliases call their counterparts
    for my $alias ( keys %{$aliases} ) {
        install_modifier( $adapter_class, 'around', $alias => sub {
            my $orig = shift;
            my $self = shift;

            my $method = $aliases->{$alias};
            return $self->$method(@_);
        });
    }
}

1;

__END__