--- trunk/lib/Frey/ClassLoader.pm	2008/11/18 12:02:57	407
+++ trunk/lib/Frey/ClassLoader.pm	2008/11/18 12:55:32	408
@@ -124,4 +124,29 @@
 	$loaded_class;
 }
 
+=head2 class_methods
+
+  my @methods = $o->class_methods( $class );
+
+=cut
+
+sub class_methods {
+	my ( $self, $class ) = @_;
+
+	confess "need class" unless $class;
+	if ( ! $class->can('meta') ) {
+		warn "$class doesn't have meta (isn't Moose class)";
+		return;
+	}
+	my $meta = $class->meta;
+
+	my $attr;
+	$attr->{$_}++ foreach $meta->get_attribute_list;
+	my @methods = grep { ! defined($attr->{$_}) } $meta->get_method_list;
+	warn "# methods = ",dump( @methods ) if $self->debug;
+
+	return @methods;
+}
+
+
 1;