From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

POLETTIX / Template-Perlish-1.57-TRIAL / script / generate-standalone 

            

              
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

              
#!/usr/bin/env perl
use strict;
use warnings;
use English qw( -no_match_vars );
use FindBin qw( $Bin );
use File::Spec::Functions qw( catfile );
my @package = slurp(catfile($Bin, '..', 'lib', 'Template', 'Perlish.pm'));
my @tptree = slurp(catfile($Bin, 'tptree'));
for (@tptree) {
   next if m{\A use \s* Template::Perlish; \s*\z}mxs;
   if (m{\A __END__ \s* \z}mxs) {
      for (@package) {
         last if m{\A __END__ \s* \z}mxs;
         print;
      }
      @package = ();
   }
   print;
}
sub slurp {
   my $filename = shift;
   open my $fh, '<', $filename or die "open('$filename'): $OS_ERROR";
   return <$fh> if wantarray;
   local $/;
   return <$fh>;
}
__END__
=encoding utf8
=head1 NAME
generate-standalone - Generates a standalone version of tptree
=head1 VERSION
This document describes generate-standalone version 1.52.
=head1 SYNOPSIS
   sh generate-standalone
=head1 DESCRIPTION
tptree is a feeble attempt to have ttree functionalities in one companion
script. It relies on Template::Perlish being available somewhere.
This script generates a fully self-contained version of
tptree by just calling the generate-standalone script.
=head1 DEPENDENCIES
None, apart a fairly recent version of Perl.
=head1 BUGS AND LIMITATIONS
No bugs have been reported.
Please report any bugs or feature requests through http://rt.cpan.org/
=head1 AUTHOR
Flavio Poletti C<polettix@cpan.org>
Manified by Berrak <bkronmailbox-git@yahoo.se>
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2008-2015 by Flavio Poletti C<polettix@cpan.org>.
Copyright (c) 2018 by Berrak <bkronmailbox-git@yahoo.se>.
This module is free software.  You can redistribute it and/or modify it
under the terms of the Artistic License 2.0.
This program is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.
=head1 SEE ALSO
Yet Another Templating system for Perl
L<Template::Perlish>.
=cut