--- trunk/lib/Frey/ClassLoader.pm	2008/11/19 00:40:03	431
+++ trunk/lib/Frey/ClassLoader.pm	2008/11/19 16:53:13	457
@@ -29,11 +29,12 @@
 
 	# FIXME there must be better way to do this in Moose style
 	finddepth({ no_chdir => 1, wanted => sub {
-		return unless s/\.pm$//;
-		my @a = split(m!/!,$_);
-		my $class = join('::', @a[ 1 .. $#a ]);
-		warn ">> $_ ",dump( @a ), " >> $class\n" if $self->debug;
-		$class_path->{ $class } = "$_.pm";
+		return unless m{\.pm$};
+		my $class = $_;
+		$class =~ s{^lib/}{};
+		$class =~ s{\.pm$}{};
+		$class =~ s{/}{::}g;
+		$class_path->{ $class } = $_;
 	} }, 'lib');
 	warn "## class_path = ",dump( $class_path ) if $self->debug;
 
@@ -92,7 +93,7 @@
 
 	if ( ! $class->can('meta') ) {
 		$instance = Moose::Meta::Class->create_anon_class;
-		warn "class $class isn't Moose, faking anon class" if $self->debug;
+		warn "# class $class isn't Moose, faking anon class" if $self->debug;
 		$meta = $instance->meta;
 	} elsif( $class->meta->isa('Moose::Meta::Role') ) {
 		$is_role = 1;
@@ -108,8 +109,9 @@
 
 sub load_class {
 	my ( $self, $class ) = @_;
+	return if $loaded_class->{$class}++;
 	eval {
-		Class::MOP::load_class($class) if ! $loaded_class->{$class}++;
+		Class::MOP::load_class($class)
 	};
 	warn $@ if $@; # && $@ !~ m/role/;
 	warn "# load_class $class" if $self->debug && $loaded_class->{$class} == 1;
@@ -138,7 +140,7 @@
 
 	confess "need class" unless $class;
 	if ( ! $class->can('meta') ) {
-		warn "$class doesn't have meta (isn't Moose class)" if $self->debug;
+		warn "# $class doesn't have meta (isn't Moose class)" if $self->debug;
 		return;
 	}
 	my $meta = $class->meta;
@@ -153,4 +155,68 @@
 	return $methods;
 }
 
+=head2 class_runnable
+
+  my @runnable_methods = $o->class_runnable( $class );
+
+=cut
+
+sub class_runnable {
+	my ( $self, $class ) = @_;
+	my @methods = grep { m{^as_} } $self->class_methods( $class );
+	return @methods if wantarray;
+	return \@methods;
+}
+
+sub class_inputs {
+	my ( $self, $class ) = @_;
+	my @inputs = grep { m{^(markup/as_data/as_sponge)$} } $self->class_methods( $class );
+	return @inputs if wantarray;
+	return \@inputs;
+}
+
+=head2 new_frey_class
+
+  my $instance = $o->new_frey_class( $class, $params );
+
+This will apply L<Moose::Role> on the fly to provide accessors for
+C<data> and C<sponge> in form of C<as_*>
+
+See L<http://www.perlmonks.org/?node_id=602389>
+
+It is used by L<Frey::Run> and L<Frey::Pipe> to create objects
+
+=cut
+
+{
+	package Frey::Role::as_data;
+	use Moose::Role;
+
+	sub as_data {
+		my ($self) = @_;
+		$self->data;
+	}
+
+	package Frey::Role::as_data;
+	use Moose::Role;
+	sub as_sponge {
+		my ($self) = @_;
+		$self->sponge;
+	}
+}
+
+sub new_frey_class {
+	my ( $self, $class, $params ) = @_;
+	my $instance = $class->new( %$params );
+	if ( $instance->can('data') && ! $instance->can('as_data') ) {
+		Frey::Role::as_data->meta->apply( $instance );
+		warn "# apply as_data role to $class";
+	}
+	if ( $instance->can('sponge') && ! $instance->can('as_sponge') ) {
+		Frey::Role::as_sponge->meta->apply( $instance );
+		warn "# apply as_sponge role to $class";
+	}
+	return $instance;
+}
+
 1;