/[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 992 by dpavlin, Fri Jan 9 19:33:26 2009 UTC revision 993 by dpavlin, Sun Jan 11 12:09:58 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                  |,                  |,
343                  $has_tests,                  $has_tests,
344                  $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>|    : '',
345                  $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>| : '',
346                  qq|$table\n$pod\n</div>\n|,                  qq|
347                  qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|,                          </div>
348                            $table
349                            $pod
350                            </div>
351    
352                            <h1>Source</h1><a name="source"></a>
353                            <div class="frey-source">$source</div>
354                    |,
355          );          );
356  }  }
357    
Legend:
Removed from v.992  
changed lines
  Added in v.993
  ViewVC Help
Powered by ViewVC 1.1.26