NAME

Object::Meta::Plugin::Useful::Meta - a subclass of Object::Meta::Plugin::Useful and Object::Meta::Plugin::Host, base class for hosts which are plugins.

SYNOPSIS

my $host = Object::Meta::Plugin::Host->new();
my $plugin = Object::Meta::Plugin::Useful::Meta::new();

$plugin->plug(MyPlug->new());	# of course, there's no point if
								# this isn't more interesting

$host->plugin($plugin);

DESCRIPTION

This is an Object::Meta::Plugin::Host and more. It provides the necessary methods to treat a host as a plugin. It is not the most elegant solution, see CAVEATS.

CAVEATS

• Somewhat defies the purpose of plugging things in. It is possible (and even tested for) to plug a plugin into a host, and have that plugin provide plugin capabilities. Such an implementation would look like this:

  package SuperPlugin;
  
  use strict;
  use warnings;
  
  use base 'Object::Meta::Plugin::Useful::Generic';
  
  sub new {
  	my $pkg = shift;
  	my $self = $pkg->SUPER::new(@_);
  	$self->export(/init exports/);
  };
  
  sub init {
  	my $self = shift;
  
  	if ($self->can("super")){ # if we're part of a context, we're called from a host
  		unshift @_, $self->super; &init; # switch self, and rerun
  	} else {
  		$self->SUPER::init(@_); # goto the superclass (Object::Meta::Plugin::Useful::Generic) init.
  	}
  }
  
  sub exports { # if $self->can(super) return self->super->methods, whatever. Otherwise, export self as a plugin.
  	my $self = shift;
  
  	if ($self->can("super")){ # plugged in
  		keys %{ $self->super->methods }; # return the method names for the host
  	} else {
  		$self->SUPER::exports(@_); # Object::Meta::Plugin::Useful::Generic::exports
  	}
  }

COPYRIGHT & LICENSE

Copyright 2003 Yuval Kogman. All rights reserved.
This program is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

AUTHOR

Yuval Kogman <nothingmuch@woobling.org>

SEE ALSO

Object::Meta::Plugin, Object::Meta::Plugin::Useful, Object::Meta::Plugin::Useful::Generic, Object::Meta::Plugin::Useful::Greedy.