Initial Commit

database/perl/vendor/lib/Email/MIME/Kit/KitReader/Dir.pm

@@ -0,0 +1,51 @@
+package Email::MIME::Kit::KitReader::Dir;
+# ABSTRACT: read kit entries out of a directory
+$Email::MIME::Kit::KitReader::Dir::VERSION = '3.000006';
+use Moose;
+with 'Email::MIME::Kit::Role::KitReader';
+
+use File::Spec;
+
+# cache sometimes
+sub get_kit_entry {
+  my ($self, $path) = @_;
+
+  my $fullpath = File::Spec->catfile($self->kit->source, $path);
+
+  open my $fh, '<:raw', $fullpath
+    or die "can't open $fullpath for reading: $!";
+  my $content = do { local $/; <$fh> };
+
+  return \$content;
+}
+
+no Moose;
+__PACKAGE__->meta->make_immutable;
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Email::MIME::Kit::KitReader::Dir - read kit entries out of a directory
+
+=head1 VERSION
+
+version 3.000006
+
+=head1 AUTHOR
+
+Ricardo Signes <rjbs@cpan.org>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2018 by Ricardo Signes.
+
+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