File: demo_single.pl

package info (click to toggle)
libtext-reform-perl 1.12.2-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 188 kB
  • ctags: 31
  • sloc: perl: 1,251; makefile: 39
file content (19 lines) | stat: -rw-r--r-- 339 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use Text::Reform;

@graph = split "\n", <<EOGRAPH;
|*
| *
|  *
|   *
|      *
|          *
|                *
|
EOGRAPH

print form {squeeze=>0},
            '~ [[[[[[[[[[[[[[[[[[[[[[[[[[[[',
            "Activity", \@graph,
            '  +---------------------------',
            '  ||||||||||||||||||||||||||||',
              'Time';