projects / gitmo/Moose.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw
Remove our (now broken) dzil GatherDir subclass
[gitmo/Moose.git] / eg / class_browser.pl
diff --git a/eg/class_browser.pl b/eg/class_browser.pl
index 095234d..f98fb39 100644 (file)
--- a/eg/class_browser.pl
+++ b/eg/class_browser.pl
@@ -21,8 +21,8 @@ if ($stand_alone) {
             Class::MOP::Browser::Server;
         our @ISA = qw(HTTP::Server::Simple::CGI);
         sub handle_request { ::process_template() }
-    }    
-    Class::MOP::Browser::Server->new()->run();    
+    }
+    Class::MOP::Browser::Server->new()->run();
 }
 else {
     print CGI::header();
@@ -41,16 +41,16 @@ else {
                 'deparse_method'        => \&::deparse_method,
                 'deparse_item'          => \&::deparse_item,
             }
-        ) or warn Template->error;        
+        ) or warn Template->error;
     }
 }
 
-sub get_all_metaclasses { 
-    sort { $a->name cmp $b->name } Class::MOP::get_all_metaclass_instances() 
+sub get_all_metaclasses {
+    sort { $a->name cmp $b->name } Class::MOP::get_all_metaclass_instances()
 }
-    
-sub get_metaclass_by_name { 
-    Class::MOP::get_metaclass_by_name(@_); 
+
+sub get_metaclass_by_name {
+    Class::MOP::get_metaclass_by_name(@_);
 }
 
 sub deparse_method {
@@ -65,9 +65,9 @@ sub deparse_item {
     return $item unless ref $item;
     local $Data::Dumper::Deparse = 1;
     local $Data::Dumper::Indent  = 1;
-    my $dumped = Dumper $item;    
+    my $dumped = Dumper $item;
     $dumped =~ s/^\$VAR1\s=\s//;
-    $dumped =~ s/\;$//;    
+    $dumped =~ s/\;$//;
     return _clean_deparse_code($dumped);
 }
 
@@ -76,11 +76,11 @@ sub _clean_deparse_code {
     my @cleaned;
     foreach (@body) {
         next if /^\s+use/;
-        next if /^\s+BEGIN/;        
-        next if /^\s+package/;        
+        next if /^\s+BEGIN/;
+        next if /^\s+package/;
         push @cleaned => $_;
-    }  
-    return (join "\n" => @cleaned);  
+    }
+    return (join "\n" => @cleaned);
 }
 
 1;
@@ -116,52 +116,52 @@ pre {
     border:      1px dotted green;
 }
 
-A { 
+A {
     font-family: arial;
-    font-size:   12px;    
+    font-size:   12px;
     color: black;
     text-decoration: none;
 }
 
 A:hover {
-    text-decoration: underline;    
+    text-decoration: underline;
 }
-                                
-td.lightblue  { 
-    background-color: #99BBFF; 
-    border-right:  1px solid #336699; 
-    border-bottom: 1px solid #336699; 
-    border-top:    1px solid #BBDDFF; 
-    border-left:   1px solid #BBDDFF;        
+
+td.lightblue  {
+    background-color: #99BBFF;
+    border-right:  1px solid #336699;
+    border-bottom: 1px solid #336699;
+    border-top:    1px solid #BBDDFF;
+    border-left:   1px solid #BBDDFF;
 }
 
-td.grey       { 
-    background-color: #CCCCCC; 
-    border-right:  1px solid #888888; 
-    border-bottom: 1px solid #888888;  
-    border-top:    1px solid #DDDDDD; 
-    border-left:   1px solid #DDDDDD;       
+td.grey       {
+    background-color: #CCCCCC;
+    border-right:  1px solid #888888;
+    border-bottom: 1px solid #888888;
+    border-top:    1px solid #DDDDDD;
+    border-left:   1px solid #DDDDDD;
 }
 
-td.manila     { 
+td.manila     {
     background-color: #FFDD99;
-    border-right:  2px solid #CC9933; 
-    border-bottom: 2px solid #CC9933; 
-    border-top:    2px solid #FFFFBB; 
-    border-left:   2px solid #FFFFBB;        
+    border-right:  2px solid #CC9933;
+    border-bottom: 2px solid #CC9933;
+    border-top:    2px solid #FFFFBB;
+    border-left:   2px solid #FFFFBB;
 }
 
-td.darkgreen  { 
-    background-color: #33CC33; 
-    border-right:  1px solid #009900; 
-    border-bottom: 1px solid #009900; 
-    color: #CCFFCC;    
+td.darkgreen  {
+    background-color: #33CC33;
+    border-right:  1px solid #009900;
+    border-bottom: 1px solid #009900;
+    color: #CCFFCC;
 }
 
-td.lightgreen { 
-    background-color: #AAFFAA; 
-    border-right:  1px solid #33FF33; 
-    border-bottom: 1px solid #33FF33;     
+td.lightgreen {
+    background-color: #AAFFAA;
+    border-right:  1px solid #33FF33;
+    border-bottom: 1px solid #33FF33;
 }
 
 </style>
@@ -170,7 +170,7 @@ td.lightgreen {
 <h1>Class::MOP Browser</h1>
 <table bgcolor='#CCCCCC' cellpadding='0' cellspacing='0' border='0' align='center' height='400'>
 <tr valign='top'>
-    
+
 <td rowspan='2' width='200'><table cellspacing='0' cellpadding='5' border='0' width='100%'>
     [% FOREACH metaclass IN get_all_metaclasses() %]
         <tr>
@@ -183,10 +183,10 @@ td.lightgreen {
     [% END %]
     </table></td>
 <td height='10' width='250'><table cellspacing='0' cellpadding='5' border='0' width='100%'>
-    <tr align='center'>    
+    <tr align='center'>
     [% FOREACH area_name IN [ 'attributes', 'methods', 'superclasses' ] %]
         [% IF q.param('class') %]
-            [% IF area == area_name %]            
+            [% IF area == area_name %]
                 <td class='manila'><b>[% area_name %]</b></td>
             [% ELSE %]
                 <td class='lightblue'><a href='?class=[% q.param('class') %]&area=[% area_name %]'>[% area_name %]</a></td>
@@ -200,13 +200,13 @@ td.lightgreen {
 
 <td valign='top' rowspan='2' class='lightgreen' width='450'>
     <table cellspacing='0' cellpadding='3' border='0'>
-    <tr>                    
-    <td class='darkgreen' width='100'></td> 
-    <td class='darkgreen' width='350'></td>     
-    </tr>    
+    <tr>
+    <td class='darkgreen' width='100'></td>
+    <td class='darkgreen' width='350'></td>
+    </tr>
     [% IF q.param('class') && area == 'attributes' && q.param('attr') %]
 
-    [% 
+    [%
         meta = get_metaclass_by_name(q.param('class'))
         attr = meta.get_attribute(q.param('attr'))
     %]
@@ -221,7 +221,7 @@ td.lightgreen {
 
     [% ELSIF q.param('class') && area == 'methods' && q.param('method') %]
 
-    [% 
+    [%
         meta = get_metaclass_by_name(q.param('class'))
         method = meta.get_method(q.param('method'))
     %]
@@ -235,7 +235,7 @@ td.lightgreen {
             <tr>
             <td class='darkgreen' align='right' valign='top'>body</td>
             <td class='lightgreen'><pre>[% deparse_method(method) %]</pre></td>
-            </tr>    
+            </tr>
 
     [% END %]
     </table></td>
@@ -253,31 +253,31 @@ td.lightgreen {
         [% FOREACH method IN meta.get_method_list.sort %]
             <tr>
                 [% IF q.param('method') == method %]
-                    <td class='darkgreen'><b>[% method %]</b></td>                
+                    <td class='darkgreen'><b>[% method %]</b></td>
                 [% ELSE %]
                     <td class='manila'><a href='?class=[% q.param('class') %]&area=[% q.param('area') %]&method=[% method %]'>[% method %]</a></td>
                 [% END %]
             </tr>
-        [% END %]    
+        [% END %]
     [% END %]
     [% IF area == 'attributes' %]
         [% FOREACH attr IN meta.get_attribute_list.sort %]
             <tr>
                 [% IF q.param('attr') == attr %]
-                    <td class='darkgreen'><b>[% attr %]</b></td>                
+                    <td class='darkgreen'><b>[% attr %]</b></td>
                 [% ELSE %]
                     <td class='manila'><a href='?class=[% q.param('class') %]&area=[% q.param('area') %]&attr=[% attr %]'>[% attr %]</a></td>
                 [% END %]
             </tr>
-        [% END %]    
-    [% END %] 
+        [% END %]
+    [% END %]
     [% IF area == 'superclasses' %]
         [% FOREACH super IN meta.superclasses.sort %]
             <tr>
                 <td class='manila'><a href='?class=[% super %]'>[% super %]</a></td>
             </tr>
-        [% END %]    
-    [% END %]       
+        [% END %]
+    [% END %]
     </table></div></td>
 [% END %]
 
A Postmodern Object System for Perl5 - now lives at https://github.com/moose/Moose