| Current Path : /proc/thread-self/root/usr/share/doc/perl-Text-Reform/demo/ |
| Current File : //proc/thread-self/root/usr/share/doc/perl-Text-Reform/demo/demo_footer.pl |
#! /usr/bin/perl -w
use strict;
use Text::Reform;
print form(
{
pagewidth => 40,
pagelen => 10,
footer => sub {
if ($#_) {
return "-" x 50 . "\n" . "Special end of report note";
} else {
return {
center => "\n-- Page $_[0] --\n\n"
};
}
},
},
']]]]]]]]]]]',
("hello\n" x 18)
);