File Coverage

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

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	1	2	50.0
total	23	24	95.8

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

package Object::Meta::Plugin::Useful; # a base class for useful plugins, defines reasonable default methods

use strict;
use warnings;

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

use Object::Meta::Plugin::ExportList;

sub new {
	my $pkg = shift;

	bless {
		exported => undef, # the export list thought to be currently relevant
		exports => [], # the exports list
	}, $pkg;
}

sub init {
	my $self = shift;
	$self->{exported} = Object::Meta::Plugin::ExportList->new($self, @_); # create a new export list, with the methods as stated in the call to plug, and save it for future reference
}

1; # Keep your mother happy.

__END__