File Coverage

bin/tabulate

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

line	stmt	sub	time	code
1				#!perl
2
3				=head1 NAME
4
5				tabulate - a pretty text data tabulator that minimises the width of tables.
6
7				=head1 SYNOPSIS
8
9				tabulate [input-files]
10
11				=head1 DESCRIPTION
12
13				This UNIX filter reads from either files or standard input, formats the
14				tab-separated text data into pretty, minimal width, space padded tables,
15				and prints to standard output. Various options change the behaviour.
16
17				This script is based on, and is part of, the Perl Text::Tabulate module.
18
19				=head1 OPTIONS
20
21				=over 4
22
23				=item -s\|--stanza
24
25				Treat each paragraph as a individual table.
26
27				=item -h\|--html
28
29				Format each table as HTML.
30
31				=item -t\|--tab
32
33				Set the tab string.
34				See module configuation options.
35
36				=item -p\|--pad
37
38				Set the pad character.
39				See module configuation options.
40
41				=item -g\|--gutter
42
43				Set the gutter string.
44				See module configuation options.
45
46				=item -I\|--Ignore
47
48				Ignore lines that match this regular expression.
49				See module configuation options.
50
51				=item -a\|--adjust
52
53				Justify columns according to this string.
54				See module configuation options.
55
56				=item -T\|--top
57
58				Set the top border characters.
59				See module configuation options.
60
61				=item -B\|--top
62
63				Set the bottom border characters.
64				See module configuation options.
65
66				=item -l\|--left
67
68				Set the left border string.
69				See module configuation options.
70
71				=item -r\|--right
72
73				Set the right border string.
74				See module configuation options.
75
76				=item -c\|--cf
77
78				This specifies if repeated values in the first few fields should be
79				replaced by the empty string.
80				See module configuation options.
81
82				=item -d\|--ditto
83
84				This specified the string that replaces common values (see cf above).
85				See module configuation options.
86
87				=back
88
89				Most of these options correspond to the configuration options of the
90				module Text::Tabulate.
91
92				=head1 SEE ALSO
93
94				See also Perl module Text::Tabulate
95
96				=head1 VERSION
97
98				This is version 1.0 of Text::Tabulate, released 1 July 2007.
99
100				=head1 COPYRIGHT
101
102				Copyright (c) 1998-2007 Anthony Fletcher. All rights reserved.
103				This script is free software; you can redistribute them and/or modify
104				them under the same terms as Perl itself.
105
106				This code is supplied as-is - use at your own risk.
107
108				=cut
109
110	1	1	783	use 5;
	1		4
	1		49
111	1	1	7	use warnings;
	1		2
	1		37
112	1	1	6	use strict;
	1		2
	1		33
113
114	1	1	577	use Text::Tabulate;
	1		2
	1		71
115
116				Text::Tabulate::filter(@ARGV);
117
118				1;
119