/[Frey]/branches/mojo/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 /branches/mojo/lib/Frey/Introspect.pm

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

revision 242 by dpavlin, Sat Nov 1 16:41:45 2008 UTC revision 243 by dpavlin, Sun Nov 2 21:24:04 2008 UTC
# Line 77  sub joose { Line 77  sub joose {
77          $out .= "\t\t},\n\t\tmeta: Frey.HTML,          $out .= "\t\t},\n\t\tmeta: Frey.HTML,
78                  classMethods: {                  classMethods: {
79                          renderHTML: function () {                          renderHTML: function () {
80                                  return new Joose.SimpleRequest().getText(\"/~/" . $self->class . "\")                                  return new Joose.SimpleRequest().getText(\"/Frey-Introspect?class=" . $self->class . "\")
81                          },\n";                          },\n";
82    
83          $out .= "\t\t},\n";          $out .= "\t\t},\n";
# Line 191  warn $attr->dump(3); Line 191  warn $attr->dump(3);
191                                  join(', ',                                  join(', ',
192                                          map {                                          map {
193                                                  my $name = $_->meta->name;                                                  my $name = $_->meta->name;
194                                                  qq|<a class="frey-popdown" href="/~/$name">$name<code>| . $_->meta->dump(2) . qq|</code></a>|;                                                  qq|<a class="frey-popdown" href="/Frey-Introspect?class=$name">$name<code>| . $_->meta->dump(2) . qq|</code></a>|;
195                                          }                                          }
196                                          #grep { $_ ne 'Moose::Object' }                                          #grep { $_ ne 'Moose::Object' }
197                                          $meta->superclasses                                          $meta->superclasses
# Line 204  warn $attr->dump(3); Line 204  warn $attr->dump(3);
204                          grep { ! m/\Q$class\E/ }        # skip me                          grep { ! m/\Q$class\E/ }        # skip me
205                          map {                          map {
206                                  my $name = $_->name;                                  my $name = $_->name;
207                                  qq|<a class="frey-popdown" href="/~/$name">$name<code>| . $name->meta->dump(2) . qq|</code></a>|;                                  qq|<a class="frey-popdown" href="/Frey-Introspect?class=$name">$name<code>| . $name->meta->dump(2) . qq|</code></a>|;
208                          }                          }
209                          $meta->calculate_all_roles                          $meta->calculate_all_roles
210                  );                  );
Legend:
Removed from v.242  
changed lines
  Added in v.243
  ViewVC Help
Powered by ViewVC 1.1.26