| Current Path : /usr/share/doc/perl-Text-Reform/demo/ |
| Current File : //usr/share/doc/perl-Text-Reform/demo/demo_single.pl |
use Text::Reform;
@graph = split "\n", <<EOGRAPH;
|*
| *
| *
| *
| *
| *
| *
|
EOGRAPH
print form {squeeze=>0},
'~ [[[[[[[[[[[[[[[[[[[[[[[[[[[[',
"Activity", \@graph,
' +---------------------------',
' ||||||||||||||||||||||||||||',
'Time';