File Coverage

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

Criterion	Covered	Total	%
statement	23	24	95.8
branch	1	2	50.0
condition	2	7	28.5
subroutine	6	6	100.0
pod	2	3	66.6
total	34	42	80.9

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

package Object::Meta::Plugin::Useful::Generic; # an extended base class with some logical features $$$ ## rename to Usefull::Generic;

use strict;
use warnings;

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

our $VERSION = 0.01;

sub new {
	my $pkg = shift;

	bless {
		exports => [],
	}, $pkg;
}

sub export { # utility method: export a list of method names
	my $self = shift;
	my @try_export = @_;

	my %tested = map { $_, undef } @{ $self->{exports} };

	push @{ $self->{exports} }, grep {
		(not exists $tested{$_}) and $tested{$_} = 1 # make sure we didn't pass this one already
		and $self->can($_) or (warnings::warnif($self,"Export of undefined method $_ attempted") and undef); # make sure we can use the method. UNIVERSAL::can should be replaced if magic is going on. To shut it up, 'no warnings Plugin::Class'.
	} @try_export;

	@{ $self->{exports} }; # number on scalar, list on list
}

sub exports {
	my $self = shift;
	@{ $self->{exports} };
}

1; # Keep your mother happy.

__END__