Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Email	[ DIR ]	drwxr-xr-x
File	[ DIR ]	drwxr-xr-x
ApacheLog.pm	2.38 KB	-rw-r--r--
Base.pm	2.59 KB	-rw-r--r--
Code.pm	2.3 KB	-rw-r--r--
Conflicts.pm	926 B	-rw-r--r--
Email.pm	4.76 KB	-rw-r--r--
File.pm	7.24 KB	-rw-r--r--
Handle.pm	2.23 KB	-rw-r--r--
Null.pm	1.4 KB	-rw-r--r--
Output.pm	8.37 KB	-rw-r--r--
Screen.pm	3.4 KB	-rw-r--r--
Syslog.pm	5.68 KB	-rw-r--r--
Types.pm	2.13 KB	-rw-r--r--
Vars.pm	1.72 KB	-rw-r--r--

Code Editor : Types.pm

package Log::Dispatch::Types;

use strict;
use warnings;
use namespace::autoclean;

our $VERSION = '2.70';

use parent 'Specio::Exporter';

use Log::Dispatch::Vars qw( %CanonicalLevelNames );
use Specio 0.32;
use Specio::Declare;
use Specio::Library::Builtins -reexport;
use Specio::Library::Numeric -reexport;
use Specio::Library::String -reexport;

any_can_type(
    'ApacheLog',
    methods => ['log'],
);

declare(
    'ArrayOfAddresses',
    parent => t( 'ArrayRef', of => t('NonEmptySimpleStr') ),
);

coerce(
    t('ArrayOfAddresses'),
    from   => t('NonEmptySimpleStr'),
    inline => sub {"[ $_[1] ]"},
);

declare(
    'Callbacks',
    parent => t( 'ArrayRef', of => t('CodeRef') ),
);

coerce(
    t('Callbacks'),
    from   => t('CodeRef'),
    inline => sub {"[ $_[1] ]"},
);

any_can_type(
    'CanPrint',
    methods => ['print'],
);

{
    my $level_names_re = join '|', keys %CanonicalLevelNames;
    declare(
        'LogLevel',
        parent => t('Value'),
        inline => sub {
            sprintf( <<'EOF', $_[1], $level_names_re );
%s =~ /\A(?:[0-7]|%s)\z/
EOF
        },
    );
}

declare(
    'SyslogSocket',
    parent => t(
        'Maybe',
        of => union( of => [ t('NonEmptyStr'), t('ArrayRef'), t('HashRef') ] )
    ),
);

# ABSTRACT: Types used for parameter checking in Log::Dispatch

__END__

=pod

=encoding UTF-8

=head1 NAME

Log::Dispatch::Types - Types used for parameter checking in Log::Dispatch

=head1 VERSION

version 2.70

=head1 DESCRIPTION

This module has no user-facing parts.

=for Pod::Coverage .*

=head1 SUPPORT

Bugs may be submitted at L<https://github.com/houseabsolute/Log-Dispatch/issues>.

I am also usually active on IRC as 'autarch' on C<irc://irc.perl.org>.

=head1 SOURCE

The source code repository for Log-Dispatch can be found at L<https://github.com/houseabsolute/Log-Dispatch>.

=head1 AUTHOR

Dave Rolsky <autarch@urth.org>

=head1 COPYRIGHT AND LICENSE

This is free software, licensed under:

The Artistic License 2.0 (GPL Compatible)

The full text of the license can be found in the
F<LICENSE> file included with this distribution.

=cut

${this.title}

Code Editor : Types.pm