--- trunk/lib/Frey/Introspect.pm 2008/11/19 15:28:23 455
+++ trunk/lib/Frey/Introspect.pm 2008/11/20 10:55:56 471
@@ -22,10 +22,6 @@
required => 1,
);
-has 'path' => (
- is => 'rw',
-);
-
=head2 joose
my $js = $o->joose;
@@ -98,7 +94,6 @@
my $path = "static/blib/$filename";
write_file( $path, $out );
warn "# created $path\n";
- $self->path( $path );
return $out;
}
@@ -229,10 +224,10 @@
# $source =~ s{class_methods( $class );
my $runnable = join("\n",
- map { $class_method->{$_} ? qq|$_| : '' } grep { $class->can($_) } Frey::Run->runnable
+ map {
+ qq|$_|
+ } $self->class_runnable( $class )
);
$runnable = " runnable: $runnable" if $runnable;