diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-05-13 12:32:28 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-05-13 12:32:28 +0200 |
| commit | 4149a04c9857873553b2b39feaa84181c2320813 (patch) | |
| tree | df6402aeff4ffdad147bc06eacf61aa648857063 /lib/App/Raps2 | |
| parent | a3085b24320ac3d9eaa56b71b8dce1a58a4a7e06 (diff) | |
Add raps2 list
Diffstat (limited to 'lib/App/Raps2')
| -rw-r--r-- | lib/App/Raps2/UI.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/App/Raps2/UI.pm b/lib/App/Raps2/UI.pm index 82b2acd..29e8ef1 100644 --- a/lib/App/Raps2/UI.pm +++ b/lib/App/Raps2/UI.pm @@ -19,6 +19,17 @@ sub new { return bless($ref, $obj); } +sub list { + my ($self, @list) = @_; + my $format = "%-20s %-20s %s\n"; + + if (not $self->{list}->{header}) { + printf($format, map { $_->[0] } @list); + $self->{list}->{header} = 1; + } + printf($format, map { $_->[1] // q{} } @list); +} + sub read_line { my ($self, $str) = @_; |