/[Frey]/trunk/lib/Frey/Introspect.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Introspect.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 972 by dpavlin, Fri Jan 9 19:33:26 2009 UTC revision 1006 by dpavlin, Sat Jan 24 14:46:40 2009 UTC
# Line 318  sub as_markup { Line 318  sub as_markup {
318    
319          $self->store( $introspect_path, $introspect );          $self->store( $introspect_path, $introspect );
320    
321            $self->add_css(qq|
322                    .right {
323                            position: fixed;
324                            top: 1em;
325                            right: 1em;
326                            z-index: 10;
327                            background: #fff;
328                            padding: 0.2em;
329                            border: 1px dashed #ee8;
330                    }
331            |);
332    
333          return join("\n",          return join("\n",
334                  qq|<h1>$class</h1>|,                  qq|
335                  qq|<div class="frey-introspect">                          <h1>$class</h1>
336                          $superclasses $roles                          <div class="frey-introspect">
337                          <br>                                  $superclasses $roles
338                          $includes                                  <br>$includes
339                          <br>                          </div>
340                          $runnable                          <div class="right">
341                                    $runnable
342                                    <br>
343                                    $has_tests
344                                    <br>
345                  |,                  |,
                 $has_tests,  
346                  $pod    ? qq|<a class="frey-skip" href="#___top" title="Skip to POD"    >pod</a>|    : '',                  $pod    ? qq|<a class="frey-skip" href="#___top" title="Skip to POD"    >pod</a>|    : '',
347                  $source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '',                  $source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '',
348                  qq|$table\n$pod\n</div>\n|,                  qq|
349                  qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|,                          </div>
350                            $table
351                            $pod
352                            </div>
353    
354                            <h1>Source</h1><a name="source"></a>
355                            <div class="frey-source">$source</div>
356                    |,
357          );          );
358  }  }
359    
Legend:
Removed from v.972  
changed lines
  Added in v.1006
  ViewVC Help
Powered by ViewVC 1.1.26