[Bps-public-commit] r17468 - sd/trunk/lib/App/SD/Model

[ruz at bestpractical.com]

Author: ruz
Date: Tue Dec 30 22:56:51 2008
New Revision: 17468

Modified:
   sd/trunk/lib/App/SD/Model/Ticket.pm

Log:
* implement 'ticket show --verbose'

Modified: sd/trunk/lib/App/SD/Model/Ticket.pm
==============================================================================
--- sd/trunk/lib/App/SD/Model/Ticket.pm	(original)
+++ sd/trunk/lib/App/SD/Model/Ticket.pm	Tue Dec 30 22:56:51 2008
@@ -161,7 +161,14 @@
 =cut
 
 sub props_to_show {
-    ('id', 'summary', 'status', 'milestone', 'component', 'owner', 'created', 'due', 'creator', 'reporter', 'original_replica')
+    my $self = shift;
+    my $args = shift || {};
+    return qw(
+        id summary status milestone component owner
+        created due creator reporter original_replica
+    ) unless $args->{'verbose'};
+
+    return $self->declared_props;
 }
 
 =head2 immutable_props