/usr/share/perl5/XML/SAX/Machines/ConfigHelper.pm is in libxml-sax-machines-perl 0.46-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | package XML::SAX::Machines::ConfigHelper;
{
$XML::SAX::Machines::ConfigHelper::VERSION = '0.46';
}
# ABSTRACT: lib/XML/SAX/Machines/ConfigHelper.pm
use strict;
## See the Makefile target "install_site_config" for where this is called.
sub _write_site_config_if_absent {
my ( $install_site_lib ) = @_;
eval "use Data::Dumper; 1" or die $@;
if ( eval "require XML::SAX::Machines::SiteConfig; 1" ) {
warn
qq[***\n*** Not overwriting $INC{"XML/SAX/Machines/SiteConfig.pm"}\n***\n];
return;
}
require File::Spec;
my $dest = File::Spec->catfile(
$install_site_lib, "XML", "SAX", "Machines", "SiteConfig.pm"
);
open OUT, ">$dest" or die "$!: $dest";
warn "*** Writing $dest\n";
print OUT <<'SITE_CONFIG_END';
package XML::SAX::Machines::SiteConfig;
#
# Which options are legal in ProcessorClassOptions. This is provided here
# so you can extend the options if need be. It's also a handy quick
# reference. The master defaults are in DefaultConfig.pm.
#
$LegalProcessorClassOptions = {
# ConstructWithOptionsHashes => "Use Foo->new( { Handler => $h } ) instead of Foo->new( Handler => $h )",
};
#
# SAX Processor specific configs.
#
# Per-processor options
# =====================
#
# ConstructWithOptionsHashes (boolean)
#
# tells XML::SAX::Machine to construct the processor like:
#
# Foo->new(
# { Handler => $h },
# );
#
# instead of
#
# Foo->new( Handler => $h );
#
$ProcessorClassOptions = {
# "XML::Filter::MyFilter" => {
# ConstructWithOptionsHashes => 1,
# },
};
1;
SITE_CONFIG_END
}
1;
__END__
=pod
=head1 NAME
XML::SAX::Machines::ConfigHelper - lib/XML/SAX/Machines/ConfigHelper.pm
=head1 VERSION
version 0.46
=head1 SYNOPSIS
NONE: for internal use only.
=head1 DESCRIPTION
Some operations, like creating or writing XML::SAX::Machine::MyConfig.pm are
rarely needed, and take a few modules not normally needed by
XML::SAX::Machines. So this module contains all that and prevents bloating
"normal" processes. Read the source to see what I mean.
=head1 NAME
XML::SAX::Machine::ConfigHelper - rarely needed config routines.
=head1 AUTHORS
=over 4
=item *
Barry Slaymaker
=item *
Chris Prather <chris@prather.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Barry Slaymaker.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|