Benign perl Download

Text-Fab 0.03

“A powerful, general-purpose document expansion framework”

Perl slurps a filehandleLow identifier reuse ratio

SHA-256a0fe6cc4fd51155c22dfc9dccbcae5207a9ac73e814a3f499f6d092dfa81e7d7

URLhttps://cpan.metacpan.org/authors/id/I/IL/ILYAZ/modules/Text-Fab-0.03.tar.gz

Evidence

imports FreezeThaw Fab.pm · lines 1–15

1package Text::Fab;
2
3use 5.022;
4use strict;
5use warnings;
6
7our $VERSION = '0.04';
8
9# FreezeThaw is required because Storable::dclone cannot serialize CODE references
10# stored in the configuration hash (such as custom sorters, parsers, and callbacks).
11use FreezeThaw qw(safeFreeze thaw);
12
13sub dclone ($) { (thaw safeFreeze shift)[0] }
14
15# File-closing priority bo …

Perl subroutine definition Fab.pm · lines 19–25

19:43… 0;
20our $PRIORITY_FILE_CLOSE_OVERFLOW = -2000.0;
21
22sub priority_for_file_close {
23    my ($self, $dist_from_end) = @_;
⋯2 lines

English function-word token "with" Fab.pm · lines 36–39

36:21… irective boundary.
37# A default directive begins with '#' at offset 0 or immediately after a newline.
38sub _default_interleaver {
39    my ($buffer, $of …

Perl slurps a filehandle Fab.pm · lines 280–290

56… etected for file '$data'\n";
      }
282
      open my $fh, '<', $data
          or die "E_FILE_READ_ERROR: Cannot read include file '$data': $!\n";
      my $content = do { local $/; <$fh> };
      close $fh;
287
      push @{$self->{include_stack}}, $data;
      eval {
          $self->process_string($content …

imports strict 01-basics.t · lines 1–20

1use strict;
2use warnings;
3use Test::More;
4use Test::Exception;
5use Text::Fab;
6
7use_ok('Text::Fab');
⋯4 lines
12my $input2 = <<'END';
13#target_section A
14This is A.
15#target_section B
16This is B.
⋯4 lines

No evidence locations were recorded for this file. Raw result