File Coverage

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

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	23	52.1

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

package Object::Meta::Plugin::Useful::Meta; # a plugin base class which subclasses Object::Meta::Plugin::Host - a meta plugin

use strict;
use warnings;

use base qw/Object::Meta::Plugin::Host Object::Meta::Plugin::Useful/;

sub new {
	my $pkg = shift;

	my $self = $pkg->SUPER::new(); # host;

	$self->{exported} = undef;
	$self->{exports} = [];

	$self;
}

sub exports {
	keys %{ $_[0]->methods };
}


1; # Keep your mother happy.

__END__