File Coverage

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

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	34	34	100.0

#!/usr/bin/perl
# $Id: Greedy.pm,v 1.9 2003/12/10 03:52:30 nothingmuch Exp $

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

use strict;
use warnings;

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

use Devel::Symdump;
use Class::ISA;

our $VERSION = 0.02;

sub exports {
	my $self = shift;
	my %seen;

	return $self->_filter( # filters the method names
		grep { not $seen{$_}++ } # filter duplicates
			map { s/.*:://; $_ } # $_ is any function implemented somewhere in $self's @ISA tree. Removes the namespace of all the functions.
				map { Devel::Symdump->new($_)->functions() } # $_ is any package that $self is (-a). Returns all the functions in all the packages.
					($_, Class::ISA::super_path($_)) # $_ is the package of $self, because of the for right below here
	) for ref $self;
}

sub _filter {
	shift;
	return grep { !/^(?:
		croak	|	# imported into the namespace
		carp	|
		exports	|	# provided by this class
		init	|	# provided by the
		new			# typically undesired
	)$/x } grep { /^(?!_)/ } @_;
}

1; # Keep your mother happy.

__END__