/[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 943 by dpavlin, Tue Jan 6 14:50:30 2009 UTC revision 1018 by dpavlin, Sun Jan 25 16:45:43 2009 UTC
# Line 60  sub joose { Line 60  sub joose {
60                  $out .= "\t\t\t$_: {\n";                  $out .= "\t\t\t$_: {\n";
61    
62                  my $attr = $meta->get_attribute($_);                  my $attr = $meta->get_attribute($_);
63                  my $is = $attr->_is_metadata;                  my $is = eval { $attr->_is_metadata; };
64                    return if $@;
65    
66                  $out .= "\t\t\t\tis: \"$is\",\n" if defined $is;                  $out .= "\t\t\t\tis: \"$is\",\n" if defined $is;
67                  $out .= "\t\t\t\tlazy: true,\n" if $attr->is_lazy;                  $out .= "\t\t\t\tlazy: true,\n" if $attr->is_lazy;
68                  $out .= "\t\t\t\trequired: true,\n" if $attr->is_required;                  $out .= "\t\t\t\trequired: true,\n" if $attr->is_required;
# Line 316  sub as_markup { Line 318  sub as_markup {
318    
319          $self->store( $introspect_path, $introspect );          $self->store( $introspect_path, $introspect );
320    
321          return join("\n",          $self->add_css(qq|
322                  qq|<h1>$class</h1>|,                  .right {
323                  qq|<div class="frey-introspect">                          position: fixed;
324                          $superclasses $roles                          top: 1em;
325                          <br>                          right: 1em;
326                          $includes                          z-index: 10;
327                          <br>                          background: #fff;
328                          $runnable                          padding: 0.2em;
329                  |,                          border: 1px dashed #ee8;
330                  $has_tests,                  }
331                  $pod    ? qq|<a class="frey-skip" href="#___top" title="Skip to POD"    >pod</a>|    : '',          |);
332                  $source ? qq|<a class="frey-skip" href="#source" title="Skip to source" >source</a>| : '',  
333                  qq|$table\n$pod\n</div>\n|,          my $right = join('<br>',
334                  qq|<h1>Source</h1><a name="source"></a><div class="frey-source">$source</div>|,                  grep { $_ } (
335                            $runnable,
336                            $has_tests,
337                            ( $pod    ? qq|<a class="frey-skip" style="float: left;" href="#___top" title="Skip to POD"    >pod</a>|    : '' ) . ' ' .
338                            ( $source ? qq|<a class="frey-skip" style="float: right;" href="#source" title="Skip to source" >source</a>| : '' )
339                    )
340          );          );
341    
342            return
343                    qq|
344                            <h1>$class</h1>
345                            <div class="frey-introspect">
346                                    $superclasses $roles
347                                    <br>$includes
348                            </div>
349                            <div class="right">
350                                    $right
351                            </div>
352                            $table
353                            $pod
354                            </div>
355    
356                            <h1>Source</h1><a name="source"></a>
357                            <div class="frey-source">$source</div>
358                    |
359                    ;
360  }  }
361    
362  =head1 SEE ALSO  =head1 SEE ALSO
Legend:
Removed from v.943  
changed lines
  Added in v.1018
  ViewVC Help
Powered by ViewVC 1.1.26