X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FApp%2FCommand%2FShow.pm;h=457ae8a3142f0f30a307ac3d6adf983aa8d46d34;hb=HEAD;hp=37920980df94e45e3cdd2b5a23620bd491678def;hpb=26d0f7b480cf37b7e7c327c39be7d410aca254fe;p=gruntmaster-data.git diff --git a/lib/Gruntmaster/App/Command/Show.pm b/lib/Gruntmaster/App/Command/Show.pm index 3792098..457ae8a 100644 --- a/lib/Gruntmaster/App/Command/Show.pm +++ b/lib/Gruntmaster/App/Command/Show.pm @@ -3,7 +3,7 @@ package Gruntmaster::App::Command::Show; use 5.014000; use warnings; -our $VERSION = '5999.000_004'; +our $VERSION = '6000.001'; use Gruntmaster::App '-command'; use Gruntmaster::Data; @@ -35,7 +35,7 @@ sub show_contest { my (%columns) = @_; $columns{$_} = strftime '%c', localtime $columns{$_} for qw/start stop/; - print < +Phone: $columns{phone} +Since: $columns{since} +Admin: @{[$columns{admin} ? 'Yes' : 'No']} +Level: $columns{level} +University: $columns{university} +Town: $columns{town} +Country: $columns{country} +END +} + 1; __END__ + +=encoding utf-8 + +=head1 NAME + +Gruntmaster::App::Command::Show - display human-readable information about an object + +=head1 SYNOPSIS + + gm -u show MGV + gm -p show aplusb + gm -c show test_ct + gm -j show 100 + +=head1 DESCRIPTION + +The get command takes an object ID and prints information about that +object in a human-readable format. + +=head1 SEE ALSO + +L + +=head1 AUTHOR + +Marius Gavrilescu, Emarius@ieval.roE + +=head1 COPYRIGHT AND LICENSE + +Copyright (C) 2014-2016 by Marius Gavrilescu + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself, either Perl version 5.20.1 or, +at your option, any later version of Perl 5 you may have available. + + +=cut