File Coverage

blib/lib/Log/Log4perl/NDC/Scoped.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	3	4	75.0
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	40	41	97.5

package Log::Log4perl::NDC::Scoped;

# Log4perl is compatible with perl 5.00503
# but through a source filter when installing
# We won't do that... :)

use 5.006;
use strict;
use warnings;
use Log::Log4perl;
use Carp qw(croak);
use base qw(Exporter);

our $VERSION = '0.02';
our @EXPORT_OK = qw(push_ndc);
our %EXPORT_TAGS = (all => \@EXPORT_OK);
our $SEPARATOR = '|';

sub _push {
    my ($class, @parts) = @_;

    croak "NDC is useless in void context!" unless defined wantarray;

    my $str = join $SEPARATOR, map { defined $_ ? $_ : '' } @parts;
    Log::Log4perl::NDC->push($str);

    return bless { ndc => $str }, $class;
}

sub DESTROY {
    Log::Log4perl::NDC->pop();
    return;
}

sub push_ndc {
    return __PACKAGE__->_push(@_);
}

1;

__END__