File Coverage

blib/lib/Object/Meta/Plugin/ExportList.pm

Criterion	Covered	Total	%
statement	19	40	47.5
branch	2	4	50.0
condition			n/a
subroutine	6	8	75.0
pod	6	6	100.0
total	33	58	56.9

#!/usr/bin/perl
# $Id: ExportList.pm,v 1.1 2003/11/29 14:35:24 nothingmuch Exp $

package Object::Meta::Plugin::ExportList; # an object representing the skin of a plugin - what can be plugged and unseamed at the top level.

use strict;
use warnings;

# this is a simple string based Object::Meta::Plugin::Export list. That is, all the methods are strings, and not code refs,
# which gives a somewhat more controlled environment.

# you could laxen these limits by writing your own ExportList, which will use code refs, and thus allow a plugin to nibble methods from other classes without base classing.
# you'd also have to subclass Object::Meta::Plugin::Host to handle coderefs. Perhaps a dualvalue system could be useful.

our $VERSION = 0.01;

sub new {
	my $pkg = shift;
	my $plugin = shift;

	my @methods = @_;

	if (@_){
		my %list = map { $_, undef } $plugin->exports(); # used to cross out what's not exported
		bless [ $plugin, [ grep { exists $list{$_} } @methods ] ], $pkg; # filter the method list to be only what works
	} else {
		bless [ $plugin, [ $plugin->exports() ] ], $pkg; # everythin unless otherwise stated
	}
}

sub plugin {
	my $self = shift;
	$self->[0];
}

sub exists { # $$$
	my $self = shift;

	if (wantarray){ # return a grepped list
		my @methods = @_;
	} else { # return a true or false
		my $method = shift;
	}
}

sub list { # list all under plugin
	my $self = shift;

	return @{ $self->[1] };
}

sub merge { # or another exoprt list into this one
	my $self = shift;
	my $x = shift;

	my %uniq;
	@{ $self->[1] } = grep { not $uniq{$_}++ } @{ $self->[1] }, $x->list();

	$self;
}

sub unmerge { # and (not|complement) another export list into this one
	my $self = shift;
	my $x = shift;

	my %seen = map { $_, undef } $x->list();
	@{ $self->[1] } = grep { not exists $seen{$_} } @{ $self->[1] };
}

1; # Keep your mother happy.

__END__