/usr/share/perl5/Catmandu/Fix/include.pm is in libcatmandu-perl 0.9505-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 121 122 123 124 125 126 127 128 | package Catmandu::Fix::include;
use Catmandu::Sane;
our $VERSION = '0.9505';
use Moo;
use Catmandu;
use Catmandu::Fix;
use File::Spec qw();
use Cwd qw();
use namespace::clean;
use Catmandu::Fix::Has;
has path => (fix_arg => 1);
has _path => (
is => 'ro',
lazy => 1,
builder => sub {
my $self = $_[0];
my $path = $self->path();
my $real_path;
my $load_paths = Catmandu->_env->load_paths;
if( File::Spec->file_name_is_absolute( $path ) ){
$real_path = $path;
} else {
for my $p(@$load_paths){
my $n = File::Spec->catfile($p,$path);
if( -f $n ){
$real_path = Cwd::realpath($n);
last;
}
}
}
die("unable to find $path in load_path of Catmandu (load_path: ".
join(',',@$load_paths).")") unless defined $real_path;
$real_path;
}
);
has _fixer => (
is => 'ro',
lazy => 1,
builder => sub {
Catmandu::Fix->new(
fixes => [ $_[0]->_path() ]
);
}
);
sub fix {
my ($self,$data) = @_;
$self->_fixer()->fix($data);
}
1;
__END__
=pod
=head1 NAME
Catmandu::Fix::include - include fixes from another file
=head1 SYNOPSIS
include('/path/to/myfixes.txt')
=head1 NOTES
=over 4
=item path is relative to a Catmandu load path
#1. a catmandu load path is a directory where a catmandu configuration file can be found
#2. as there are multiple load paths, it will loop through all the path, and include the first file it can find
#3. in catmandu, the default_load_path is either
# 3.1. the directory of the running script
# 3.2. the parent directory of the running script if the directory is 'bin'
#use default load_path
#called from script "/opt/catmandu-project/fix.pl"
#default_load_path: /opt/catmandu-project
#file must be located at "/opt/catmandu-project/fixes/myfixes.txt"
Catmandu->fixer("include('fixes/myfixes.txt')");
#use default load_path
#called from script "/opt/catmandu-project/bin/fix.pl"
#default_load_path: /opt/catmandu-project (notice the absence of 'bin')
#file must be located at "/opt/catmandu-project/fixes/myfixes.txt"
Catmandu->fixer("include('fixes/myfixes.txt')");
#load fixes, located at /opt/catmandu-project/fixes/myfixes.txt
Catmandu->load("/opt/catmandu-project");
Catmandu->fixer("include('fixes/myfixes.txt')");
#look for 'fixes/myfixes.txt' in /opt/catmandu-project2, and if that fails in /opt/catmandu-project-1
Catmandu->load("/opt/catmandu-project2","/opt/catmandu-project-1");
Catmandu->fixer("include('fixes/myfixes.txt')");
#if "/opt/catmandu-project/fixes/myfixes2.txt" does not exists, the fix will fail
Catmandu->load("/opt/catmandu-project");
Catmandu->fixer("include('fixes/myfixes2.txt)");
=item circular references are not detected
=item if the 'include' is enclosed within an if-statement, the fixes are inserted in the control structure, but only executed if the if-statement evaluates to 'true'.
#the fixes in the file 'add_address_fields.txt' are only executed when field 'name' has content,
#but, the fixes are included in the control structure.
if all_match('name','.+')
include('add_address_fields.txt')
end
=back
=head1 SEE ALSO
L<Catmandu::Fix>
=cut
|