/usr/share/perl5/Catmandu/Importer/YAML.pm is in libcatmandu-perl 0.9206-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 | package Catmandu::Importer::YAML;
use namespace::clean;
use Catmandu::Sane;
use YAML::XS ();
use Moo;
use Devel::Peek;
with 'Catmandu::Importer';
my $RE_EOF = qr'^\.\.\.$';
my $RE_SEP = qr'^---';
sub generator {
my ($self) = @_;
sub {
state $fh = $self->fh;
state $yaml = "";
state $data;
state $line;
while (defined($line = <$fh>)) {
if ($line =~ $RE_EOF) {
last;
}
if ($line =~ $RE_SEP && $yaml) {
utf8::encode($yaml);
$data = YAML::XS::Load($yaml);
$yaml = $line;
return $data;
}
$yaml .= $line;
}
if ($yaml) {
utf8::encode($yaml);
$data = YAML::XS::Load($yaml);
$yaml = "";
return $data;
}
return;
};
}
=head1 NAME
Catmandu::Importer::YAML - Package that imports YAML data
=head1 SYNOPSIS
use Catmandu::Importer::YAML;
my $importer = Catmandu::Importer::YAML->new(file => "/foo/bar.yaml");
my $n = $importer->each(sub {
my $hashref = $_[0];
# ...
});
The YAML input file needs to be separated into records:
---
- recordno: 1
- name: Alpha
---
- recordno: 2
- name: Beta
...
where '---' is the record separator and '...' the EOF indicator.
=head1 METHODS
=head2 new(file => $filename, fh => $fh , fix => [...])
Create a new YAML importer for $filename. Use STDIN when no filename is given.
The constructor inherits the fix parameter from L<Catmandu::Fixable>. When given,
then any fix or fix script will be applied to imported items.
=head2 count
=head2 each(&callback)
=head2 ...
Every L<Catmandu::Importer> is a L<Catmandu::Iterable> all its methods are
inherited. The Catmandu::Importer::YAML methods are not idempotent: YAML feeds
can only be read once.
=head1 SEE ALSO
L<Catmandu::Iterable>
=cut
1;
|