[Catalyst-commits] r13956 - CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter

[dd070 at dev.catalyst.perl.org]

Author: dd070
Date: 2011-02-11 11:31:01 +0000 (Fri, 11 Feb 2011)
New Revision: 13956

Modified:
   CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter/GTK.pm
Log:
initial code

Modified: CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter/GTK.pm
===================================================================
--- CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter/GTK.pm	2011-02-11 11:27:22 UTC (rev 13955)
+++ CatalystX-Restarter-GTK/trunk/lib/CatalystX/Restarter/GTK.pm	2011-02-11 11:31:01 UTC (rev 13956)
@@ -2,20 +2,41 @@
 use Moose;
 use namespace::autoclean;
 
+extends 'Catalyst::Restarter';
+
+sub pick_subclass {
+    my $subclass = ($^O eq 'MSWin32') ? 'Win32' : 'Forking';
+    
+    $subclass = 'CatalystX::Restarter::GTK::'.$subclass;
+    
+    eval "use $subclass";
+    die "$@\n" if $@;
+    
+    return $subclass;
+}
+
 1;
 
 =head1 NAME
 
-CatalystX::Restarter::GTK - 
+CatalystX::Restarter::GTK - Base class for GTK based forkers
 
 =head1 DESCRIPTION
 
+It overrides pick_subclass to provide gtk based subclass of CatalystX::Restarter::GTK.
+
 =head1 METHODS
 
+pick_subclass
+
+return GTK based of forker
+
 =head1 BUGS
 
 =head1 AUTHOR
 
+Dhaval Dhanani
+
 =head1 COPYRIGHT & LICENSE
 
 Copyright 2009 the above author(s).