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; |
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 |
|
|