summaryrefslogtreecommitdiff
path: root/lib/App/Raps2
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-05-13 12:32:28 +0200
committerDaniel Friesel <derf@finalrewind.org>2011-05-13 12:32:28 +0200
commit4149a04c9857873553b2b39feaa84181c2320813 (patch)
treedf6402aeff4ffdad147bc06eacf61aa648857063 /lib/App/Raps2
parenta3085b24320ac3d9eaa56b71b8dce1a58a4a7e06 (diff)
Add raps2 list
Diffstat (limited to 'lib/App/Raps2')
-rw-r--r--lib/App/Raps2/UI.pm11
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) = @_;