use IO;
use Class::Multimethods;
multimethod test => (IO::File)
	=> sub { $_[0]->print("This should go in a file\n") };
multimethod test => (IO::Pipe)
	=> sub { $_[0]->("This should go down a pipe\n") };
multimethod test => (IO::Socket)
	=> sub { $_[0]->("This should go out a socket\n") };

Class::Multimethods::analyse("test");


#########################################################################
#                                                                       #
#  Copyright (C) 1999 by Manning Publications Co. All Rights Reserved.  #
#                                                                       #
#  This code is free software. It may be used, redistributed            #
#  and/or modified under the terms of the Perl Artistic License         #
#  (see http://www.perl.com/perl/misc/Artistic.html).                   #
#                                                                       #
#########################################################################

