view release on metacpan or  search on metacpan

lib/PPIx/DocumentName.pm  view on Meta::CPAN

3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
use warnings;
 
package PPIx::DocumentName;
 
# ABSTRACT: Utility to extract a name from a PPI Document
our $VERSION = '1.01'; # VERSION
 
use PPI::Util qw( _Document );
 
 
sub log_info(&@);
sub log_debug(&@);
sub log_trace(&@);
 
my %callers;
 
BEGIN {
  if ( $INC{'Log/Contextual.pm'} ) {
    ## Hide from autoprereqs
    require 'Log/Contextual/WarnLogger.pm';    ## no critic (Modules::RequireBarewordIncludes)
    my $deflogger = Log::Contextual::WarnLogger->new( { env_prefix => 'PPIX_DOCUMENTNAME', } );
    Log::Contextual->import( 'log_info', 'log_debug', 'log_trace', '-default_logger' => $deflogger );
  }