File Coverage

blib/lib/Object/Meta/Plugin/Useful/Greedy.pm

Criterion	Covered	Total	%
statement	31	31	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	39	40	97.5

#!/usr/bin/perl
# $Id: Greedy.pm,v 1.2 2003/11/29 14:48:37 nothingmuch Exp $

package Object::Meta::Plugin::Useful::Greedy;

use strict;
use warnings;

use base 'Object::Meta::Plugin::Useful';

use Devel::Symdump;

sub exports {
	my $self = shift;

	return _filter(_collect_functions(ref $self));

	sub _collect_functions {
		my $pkg = shift;
		my @f = map { s/.*:://; $_ } Devel::Symdump->new($pkg)->functions();;

		my $isaisa;
		no strict 'refs';
		foreach $isaisa (@{"$pkg\::ISA"}) {
			push @f, _collect_functions($isaisa);
		}
		@f;
	}
}

sub _filter {
	my %seen;
	return grep { not $seen{$_}++ } grep { !/^(?:
		croak	|
		carp	|
		exports	|
		next	|
		init	|
		new
	)$/x } grep { /^(?!_)\w/ } @_;
}


1; # Keep your mother happy.

__END__