[Bps-public-commit] r14957 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Sat Aug  9 16:27:13 2008
New Revision: 14957

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/Collection.pm

Log:
 r69028 at onn:  sartak | 2008-08-09 16:26:31 -0400
 If someone sets Collection->app_handle, set ->handle automatically


Modified: Prophet/trunk/lib/Prophet/Collection.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Collection.pm	(original)
+++ Prophet/trunk/lib/Prophet/Collection.pm	Sat Aug  9 16:27:13 2008
@@ -10,7 +10,11 @@
 has app_handle => (
     is  => 'rw',
     isa => 'Maybe[Prophet::App]',
-    required => 0
+    required => 0,
+    trigger => sub {
+        my ($self, $app) = @_;
+        $self->handle($app->handle);
+    },
 );
 
 has handle => (