Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
Email	[ DIR ]	drwxr-xr-x
File	[ DIR ]	drwxr-xr-x
ApacheLog.pm	1.96 KB	-rw-r--r--
Base.pm	1.37 KB	-rw-r--r--
Code.pm	1.85 KB	-rw-r--r--
Conflicts.pm	650 B	-rw-r--r--
Email.pm	3.81 KB	-rw-r--r--
File.pm	6.04 KB	-rw-r--r--
FileRotate.pm	25.46 KB	-rw-r--r--
Handle.pm	1.8 KB	-rw-r--r--
Null.pm	1.04 KB	-rw-r--r--
Output.pm	7.01 KB	-rw-r--r--
Screen.pm	2.05 KB	-rw-r--r--
Syslog.pm	3.82 KB	-rw-r--r--

package Log::Dispatch::Base;
{
  $Log::Dispatch::Base::VERSION = '2.41';
}

use strict;
use warnings;

sub _get_callbacks {
    shift;
    my %p = @_;

return unless exists $p{callbacks};

return @{ $p{callbacks} }
        if ref $p{callbacks} eq 'ARRAY';

return $p{callbacks}
        if ref $p{callbacks} eq 'CODE';

return;
}

sub _apply_callbacks {
    my $self = shift;
    my %p    = @_;

my $msg = delete $p{message};
    foreach my $cb ( @{ $self->{callbacks} } ) {
        $msg = $cb->( message => $msg, %p );
    }

return $msg;
}

sub add_callback {
    my $self  = shift;
    my $value = shift;

Carp::carp("given value $value is not a valid callback")
        unless ref $value eq 'CODE';

$self->{callbacks} ||= [];
    push @{ $self->{callbacks} }, $value;

return;
}

# ABSTRACT: Code shared by dispatch and output objects.

__END__

=pod

=head1 NAME

Log::Dispatch::Base - Code shared by dispatch and output objects.

=head1 VERSION

version 2.41

=head1 SYNOPSIS

use Log::Dispatch::Base;

...

@ISA = qw(Log::Dispatch::Base);

=head1 DESCRIPTION

Unless you are me, you probably don't need to know what this class
does.

=head1 AUTHOR

Dave Rolsky <autarch@urth.org>

=head1 COPYRIGHT AND LICENSE

This is free software, licensed under:

The Artistic License 2.0 (GPL Compatible)

=cut